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SECTION 1 
INTRODUCTION 



1.1 GENERAL 

This manual contains the flowcharts and listing for the TIBUG monitor used on the TM 990/100l\/l microcomputers. 
For detailed information on use of this monitor, see Section 3 of the TM 990/100M Microcomputer User's Guide. 

Within this manual, Section 1 contains a summary of the TIBUG monitor operation, and Section 2 contains flow 
charts of the monitor, each chart corresponding to a particular part of the monitor listing contained in Section 3. 

1.2 SUMMARY OF TIBUG OPERATION 

1.2.1 STARTUP 

The TIBUG Monitor is entered via an interrupt caused by the RESET switch on the microcomputer board. This 
interrupt is the level-zero interrupt with its vector at locations and 2 in memory. 

1.2.2 BAUD RATE DETECT 

After startup the monitor then starts sampling the TMS 9902 for the character 'A'. The monitor then counts the 
width of the start bit of the first character input by looping through instructions. In fact, this character can be any 
character whose ASCII representation has a one in the low order bit; e.g., A = 41 ig. This count is compared to four 
entries in a table. It should be noted that the number of times through the loop will depend on the clock rate the 
microprocessor is using. If the clock rate changes, the entries in the table must be recalculated. After the baud rate 
has been detected, the TMS 9902 is set up and a banner message is printed, indicating what version of TIBUG is 
being used. 

1.2.3 SYSTEM INITIALIZATION 

Following the banner message output, the monitor sets up its own workspace and initializes four flags starting at 
memory location FFF4i6. At this point the microterminal, if present, will send the character 'Z' to the TMS 9902. 
The Monitor will wait a short period for the 'Z' and if it doesn't appear, the Monitor assumes that a device other 
than a TM 990/301 Microterminal is connected to the TMS 9902. If a 'Z' is present, control will go to the 
microterminal command scanner which will accept and process entries from the microterminal. If the microterminal 
is not present, a question mark (?) prompt is output. The user may now enter one of several one-character 
commands to the monitor. A table lookup is then performed and control is transferred to the proper coding. After 
each command is processed, control is returned to the TIBUG Monitor. 

1.2.4 INPUT/OUTPUT 

All input and output functions between external peripheral devices connected to the TMS 9902, including the 
microterminal, are handled via Extended Operations (XOP's). All XOP vectors are in memory locations 40 to 47i6 
and 60 to 7Fi6- These locations reside in EPROM. 

1.2.5 MICROTERMINAL OPERATIONS 

Instructions sent to the Monitor from the microterminal are decoded in a jump table. If an invalid instruction is sent 
from the microterminal, the Monitor waits for another instruction. The microterminal part of the Monitor utilizes 
two unique XOP's (0,1) for sending data to and from the microterminal. 
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1.2.6 SINGLE STEP 



The TIBUG Monitor has the unique "single step" command, which is a combination of hardware and software. 
Single-stepping is accomplished using the LREX instruction. This LREX instruction permits one instruction to occur 
and then causes an interrupt. The interrupt service routine prints the Workspace Pointer (WP), Program Counter 
(PC), and Status (ST) contents after the single instruction is executed. 



1.2.7 MEMORY 



TIBUG is EPROM-resident in memory locations to 7FFt6- A minimal amount of RAM (40 words, FFBO to 
FFFFie) is also needed for workspaces and flags. 
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SECTION 2 
TIBUG FLOW CHARTS 



Flow charts are provided in the following sequence: 

Flow Chart 
Page 



Title "-isting 

Page 



2-4 XOP 1 3, Read Character 

2-5 XOP 1 2, Write Character 



2-3 System Initialization and Command Scanner 0004 

0008 
0009 

2-6 XOP 11, Read a Character and Print It Out (Echo) 0012 

2-7 XOP 14, ASCII Message Output 0013 

2-8 M Command, Memory Inspect/Change 0014 

2-12 XOP 9, Hex Input Routine 0016 

2-14 XOP 10, Hex Output Routine 0018 

2-15 S Command, Single Step Execution 0019 

2-16 Un maskable Load Interrupt 0019 

2-17 B Command, Breakpoint 0020 

2-18 XOP 15, Output WP, PC, and ST Contents 0020 

2-19 C Command, CRU Inspect/Change 0021 

2-21 W Command, Workspace Register Inspect/Change 0023 

2-25 R Command, WP, PC, and ST Registers Inspect/Change 0025 

2-26 D Command, Tag Dump of Memory 0026 

2-28 L Command, 990 Tag Format Loader 0029 

2-29 F Command, Find Value in Memory 0034 

2-30 H Command, Hex Arithmetic 0035 

2-30 T Command, Set Baud Rate 0036 

2-31 XOP 0, Microterminal Output Routine 0037 

2-32 XOP 1, Microterminal Input Routine 0038 

2-33 Z Command, Microterminal Command Scanner 0039 
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SYSTEM INITIALIZATION AND COMMAND SCANNER 
Listing Page: G004 

( ) RISE! ENTRY POINT 

HAS AN 'A' BEEN ENTERED? 

BAUD RATE DETECT 

OUTPUT BANNER MESSAGE 
SET UP StNGLE STEP VECTOR 

N /"""^^X, ARE WE CONNECTED TO THE MICROTERMINAL^ 

B J GO TO MICROTERMINAL PROCESSING 

(P2-33) 

OUTPUT A PROMPT'?' 

RECEIVE AND PRINT A COMMAND 

ISTHE COMMAND VALID^ 
GO PROCESS COMMANDS 




A0001543 
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X0P13, READ CHARACTER 
Listing Page: 0008 

CZZ) 



ENTER READ CHARACTER XOP 



SET UP 9902 CRU ADDRESS 



DO WE HAVE A CHARACTER? 



INPUT AND SAVE THE CHARACTER 



DISABLE 9902 INTERRUPTS 



RETURN 



A00O1548 
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( ) 


















N 


1 


\ 



XOP 12. WRITE CHARACTER 
Listing Page: 0009 

ENTER WRITE CHARACTER XOP 



SET UP CRU BASE OF 9902 



IS TRANSMIT BUFFER REGISTER EMPTY^ 



OUTPUT THE CHARACTER 



WAS A CARRIAGE RETURN OUTPUT? 



WAIT FOR TRANSMISSION TO END 



3 RETURN 



Y 



ARE WE IN THE DUMP ROUTINE? 



IS THIS ON ASR33? 



WAIT THREE NULL CHARACTERS 



RETURN 



A 0001 549 
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XOP 11, READ A CHARACTER AND PRINT IT OUT (ECHO) 
Listing Page: 0012 



A0001548 



{ ) 


1 


1 




\ 


' 






' 


r~ ) 



ENTER ECHO XOP 



READ A CHARACTER. XOP 13 



WRITE A CHARACTER, XOP 12 



RETURN 



2-6 



(~~1 




XOP 14, ASCII MESSAGE OUTPUT 
Listing Page: 0013 

ENTER MESSAGE OUTPUT XOP 



GET THE CHARACTER 



IS IT A ZERO; I.E., END OF MESSAGE? 



RETURN 



WRITE A CHARACTER, XOP 12 



A0001 550 
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M COMMAND, MEMORY INSPECT/CHANGE 
Listing Page: 0014 



Y 




WORD ALIGN START AND STOP ADDRESSES 



DO WE DUMP MEMORY? 



\/ IP 2-1 



0) 




SET UP PRINT COUNTER TO 8 



PRINT ADDRESS LOCATION 



PRINT LOCATION CONTENTS 



WAS THE ESCAPE KEY DEPRESSED? 



ARE WE AT END ADDRESS? 



2-3) 



A0001564 
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M COMMAND, MEMORY INSPECT/CHANGE (Continued) 




DECREMENT PRINT COUNTER 



IS PRINT COUNTER ZERO' 



2-8) 



DO CARRIAGE RETURN, LINE FEED 



A0001565 
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M COMMAND, MEMORY INSPECT/CHANGE (Continued) 



A0001565 




PRINT MEMORY ADDRESS AND CONTENTS 



ACCEPT NEW INPUT 



UPDATE MEMORY DATA 



WAS LINE TERMINATION A CARRIAGE RETURN? 



GO TO MONITOR 
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M COMMAND, MEMORY INSPECT/CHANGE (Concluded) 



A0001 566 




DECREMENT MEMORY ADDRESS BY TWO TO LOOK 
AT PREVIOUS WORD 



WAS LINE TERMINATION A MINUS SIGN? 



(P2-10) 



INCREMENT MEMORY ADDRESS BY FOUR TO LOOK 
TWO WORDS AHEAD 



2-10) 
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X0P9, HEX INPUT ROUTINE 







' 














' 


f 














r 




1 


N 


' 










1 
\ 


Y 


> 










\ 










' 


' 










' 








' 









Listing Page: 0016 

C ) ENTER HEX INPUT ROUTINE 



RESET NUMBER INPUT FLAG 



CLEAR ACCUMULATOR 



READ A CHARACTER, XOP 13 



IS THIS A VALID HEX INPUT? 



ISOLATE AND ALIGN DIGIT 



SHIFT ACCUMULATOR LEFT FOUR BITS 



ADD NEW HEX DIGIT TO ACCUMULATOR 



INCREMENT INPUT FLAG 




A0001 546N/(P 2-1 3) ^^(P2-13) ^ 



WAS THE CHARACTER A SPACE, MINUS SIGN, 
OR CARRIAGE RETURN? 



WAS THE CHARACTER A COMMA? 



SET UP ERROR POINTER 



3 RETURN 



2 12 



X0P9, HEX INPUT ROUTINE (Continued) 



^ 



^^?-3 




CHANGE THE CHARACTER TO A SPACE 



IS IT A NULL CHARACTER? 



RETURN VALUE AND TERMINATOR 



BUMP PAST NULL AND ERROR POINTERS 



C ) RETURN 



RETURN THE TERMINATOR AND GET THE POINTER 



A0001573 



J RETURN 
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XOP 10. HEX OUTPUT ROUTINE 
Listing Page: 0018 

C ) ENTER HEX OUTPUT ROUTINE (ONE DIGIT) 



( ) 




GET VALUETO PRINT 



SET UP DATA 



SET DIGIT COUNT TO 1 



ENTER HEX OUTPUT ROUTINE (FOUR DIGITS) 



GET VALUETO PRINT 



A0001547 



SET DIGIT COUNT TO 4 



CONVERT CHARACTER TO ASCII 



WRITE A CHARACTER XOP 12 



ALIGN NEXT DIGIT 



DECREMENT DIGIT COUNT 



IS DIGIT COUNT ZERO? 



RETURN 



2-14 
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S COMMAND, SINGLE STEP EXECUTION 
Listing Page: 0019 



( ) 



ENTER SINGLE STEP 



SET UP TRACE FLAG 



INITIATE LOAD INTERRUPT 



RETURN 



2-15 



UNMASKABLE LOAD INTERRUPT 
Listing Page: 0019 

ENTER LOAD 

ARE WE IN SINGLE STEP? 



(P2-18) 




IS THE HALF FLAG ON? 



ISTHE STEP FLAG SET? 



I A I GO TO TH 

x/ (P 2-3) 



E TOP OF THE MONITOR 



'ti. 



2-36) 
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B COMMAND, BREAKPOINT 
Listing Page: 0020 



CZZD 



ENTER BREAKPOINT HANDLER 



WORD ALIGN ADDRESS 



SAVE THE DATA 



INSTALL XOP 15 



A0001559 



RETURN 
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XOP 15, OUTPUT WP, PC, AND ST CONTENTS 
Listing Page: 0020 

C ) XOPI'S ENTRY POINT 



^ 



^ 



UPDATE USER PROGRAM COUNTER 



RESTORE LOCATION 



OUTPUT CONTENTS OF WORKSPACE POINTER, PROGRAM 
COUNTER, AND STATUS 



A I GO TO THE TOP OF THE MONITOR 

(P 2-3) 



A0001559 
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C COMMAND, CRU INSPECT/CHANGE 







( ) 


1 1 




^>. 




t »> N 




' 


r 


1 


^ en 


n 






" 



A0001571 




Listing Page: 0021 

ENTER CRU INSPECT/CHANGE 



UPDATE CRU BASE REGISTER 



CLEAR THE WORD FLAG 



ISOLATE BIT COUNT 



IS BIT COUNT ZERO? 



IS BIT COUNT LESS THAN 9? 



SET THE WORD FLAG 



COMBINE BIT COUNT WITH COMMAND 



STORE CRU DATA 



PRINT CRU DATA READ 



GET NEW CRU DATA 



WAS THE DATA A CARRIAGE RETURN? 



2-3) 



GO TO THE MONITOR 



(P2-20) 
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C COMMAND, CRU INSPECT/CHANGE (Concluded) 




A0001572 




ARE WE USING EIGHT BITS OR LESS? 



ALIGN THE BYTE 



COMBINE THE LOAD COMMAND WITH THE NUMBER OF BITS 



k?. 



G J GO GET MORE CRU DATA 

(P2-19) 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE 
Listing Page: 0023 




ENTER WORKSPACE REGISTER INSPECT/CHANGE 



GET THE WORKSPACE POINTER 



2-24) 




IS THE COUNT ZERO? 



GO TO PRINT ALL REGISTERS 



SAVE THE REGISTER NUMBER 



FORM REGISTER ADDRESS 



OUTPUT REGISTER CONTENTS 



GET NEW CONTENTS 



WAS THE DATA A CARRIAGE RETURN? 



GO TO THE MONITOR 
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WAS THE DATA A SPACE? 



SET UP NEXT REGISTER 



UPDATE REGISTER CONTENTS 



SET UP PRESENT REGISTER MINUS 1 



A0001561 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE (Continued) 



^ 




Y 



\y (p 2-3) 



WAS REGISTER JUST UPDATED? 



GO TO THE MONITOR 



A0001562 



\/ (P2-21) 



CHANGE REGISTER NUMBER TO R 1 



UPDATE REGISTER ADDRESS 



GO PROCESS NEW REGISTER 
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W COMMAND, WORKSPACE REGISTER IIMSPECT/CHAIMGE (Continued) 



A0001562 




WAS REGISTER 15 JUST UPDATED? 



A I GOTO THE MONITOR 

(P 2-3) 



CHANGE REGISTER NUMBER TO R + 1 



UPDATE REGISTER ADDRESS 



J J GO PROCESS NEW REGISTER 

(P2-21) 
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W COMMAND, WORKSPACE REGISTER INSPECT/CHANGE (Concluded) 



^ 



nj 




k). 



SET REGISTER NUMBER TO ZERO 



PRINT CONTENTS OF THE REGISTER 



UPDATE NEXT REGISTER ADDRESS 



UPDATE REGISTER NUMBER 



HAVE 16 REGISTERS BEEN PROCESSED? 



GO TO THE MONITOR 



2-3) 



A0001 563 
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R COMMAND, WP, PC, AND ST REGISTERS INSPECT/CHANGE 



Listing Page: 0025 

C ■ ) ENTER DISPLAY WP, PC, ST REGISTERS 



LJ 



rj 





N/ (P2-3) 



SET LOOP COUNTER TO 3 



SET UP ADDRESS OF WP 



OUTPUT CONTENTS OF REGISTER 



INPUT NEW DATA 



WASTHE DATA A MINUS SIGN? 



WAS THE DATA A CARRIAGE RETURN? 



GO TO THE MONITOR 



A0001553 




UPDATE REGISTER ADDRESS 



DECREMENT LOOP COUNTER 



IS LOOP COUNTER ZERO? 



A I GO TO MONITOR 
(P 2-3) 
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D COMMAND, TAG DUMP OF MEMORY 
Listing Page: 0026 

ENTER DUMP ROUTINE 




(P 2-3) 



A0001567 




GET 'IDT' FROM OPERATOR 



IS OPERATOR READY? 



ZERO THE CHECKSUM 



OUTPUT THE IDT TO CASSETTE 



UPDATE CHECKSUM 



OUTPUT ENTRY ADDRESS TAG TO CASSETTE 



OUTPUT MEMORY DATA TO CASSETTE 



HAS THE LAST ADDRESS BEEN DUMPED? 



END OF RECORD? 



UPDATE AND INVERT CHECKSUM 



OUTPUT CHECKSUM TO CASSETTE 



2-27) 



2-26 



D COMMAND, TAG DUMP OF MEMORY (Concluded) 



A0001568 



ic^ 





ZERO THE CHECKSUM 



OUTPUT F TAG AND CARRIAGE RETURN 



ARE WE DONE WITH THE DUMP? 



PRINT LINE FEED AND DELETE 



(P 2-26) 



OUTPUT EOF AND NULLS TO CASSETTE 



^, 



A J GO TO THE MONITOR 

{P 2-3} 
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L COMMAND, 990 TAG FORMAT LOADER 
Listing Page: 0029 

C ) ENTER TAG LOADER 



GET TAG OFF CASSETTE 




Y 




N 














\ 






IS THIS A VALID TAG? 



IS THIS A COLON? 



PRINT OUT ERROR MESSAGE 



GO TO THE MONITOR 



IS THIS AN 'F'TAG 



READ UNTIL END OF THE RECORD 



PROCESSTHE TAG 



GET DATA AND PUT IN MEMORY 



A0001569 
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F COMMAND, FIND VALUE IN MEMORY 



Listing Page: 0034 

( ) ENTER FIND COMMAND 



WORD ALIGN STARTING ADDRESS 



SET UP COMPARE COMMAND 



SET UP'INCT'COMMAND 




A0001552 




ARE WE LOOKING FOR A WHOLE WORD' 



CHANGE COMPARE COMMAND TO COMPARE BYTE 



CHANGE'INCT'COMMANDTO INC COMMAND 



BYTE ALIGN DATA 



EXECUTE INCREMENT COMMAND 



EXECUTE COMPARE COMMAND 



DID THE DATA COMPARE? 



OUTPUT MATCHING ADDRESS 



HAVE WE REACHED OUR LAST ADDRESS? 



GO TO THE MONITOR 
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H COMMAND. HEX ARITHMETIC 
Listing Page: 0035 

( ) ENTER HEX ARITHMETIC COMMAND 



rj 



u 



ADD THE TWO NUMBERS 



PRINT THE TOTAL 



GET THE DIFFERENCE 



PRINT THE DIFFERENCE 



\/ (P 2-3) 



GO TO THE MONITOR 



T COMMAND, SET BAUD RATE 
Listing Page: 0036 

C } ENTER T COMMAND 

X 

INVERT THE ASR FLAG 



^ 



A I GO TO THE MONITOR 

(P 2-3) 



A0001551 
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XOP 0, MICROTERMINAL OUTPUT ROUTINE 
Listing Page: 0037 

( ~~) ENTER XOP 




DO WE USE A DELAY? 



GO THROUGH TIMER LOOP 



SET UP COUNTER TO 4 



STRIP OUT MSB NIBBLE AND CONVERT TO ASCII 



PUT OUT CHARACTER TO MICROTERMINAL , XOP 12 



SET UP NEXT NIBBLE 



DECREMENT COUNTER 



HAVE WE PUT OUT 4 HEX CHARACTERS? 



RETURN 



A 0001 544 
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czp 

][ 

y 

]l 

y 



XOP 1, MICROTERMINAL INPUT ROUTINE 
Listing Page: 0038 

ENTER XOP 1 



SET TRANSFER COUNTER TO 4 



START WITH DATA EQUAL TO ZERO 



SHIFT DATA LEFT FOUR BITS (1 NIBBLE) 



GET NEXT FOUR BITS FROM MICROTERMINAL, XOP 9 



COMBINE NEW DATA WITH OLD DATA 



DECREMENT TRANSFER COUNT 



HAVE FOUR NIBBLES BEEN INPUT? 



J RETURN 



A0001 545 



2-32 



Z COMMAND, MICROTERMINAL COMMAND SCANNEFt 
Listing Page: 0039 

ENTER Z COMMAND FROM MONITOR 




GET A CHARACTER FROM THE MICROTERMINAL XOP 9 



CLEAR THE DELAY FLAG AND STEP FLAG 



SET THE HALT FLAG 



IS THIS REALLY THE MICROTERMINAL? 



GO TO THE MONITOR 



DO WE HAVE A VALID COMMAND? 



GET ADDRESS OF COMMAND FROM A TABLE AND GO 
EXECUTE AT THAT ADDRESS 



CZD 



A0001554 



^ 



ENTER PROGRAM COUNTER (EPC) 



GET PROGRAM COUNTER FROM MICROTERMINAL , XOP 1 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 
(P 2-33) 



2-33 



Z COMMAND, MICROTERMINAL COMMAND SCANNER (Continued) 



ENTER STATUS (EST) 



STORE STATUS, XOP 1 



^, 



B J WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



ENTER WORKSPACE POINTER (EWP) 



STORE WORKSPACE POINTER, XOP 1 



^, 



B J WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



D 



0,. 



DISPLAY PROGRAM COUNTER (DPC) 



DISPLAY PROGRAM COUNTER, XOP 



WAIT FOR NEXT MICROTERMINAL COMMAND 



2-33) 



A0001555 



( ) 



DISPLAY STATUS (DST) 



DISPLAY STATUS, XOP 



^, 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



2-34 



Z COMMAND, MICROTERMiNAL COMMAND SCANNER (Continued) 



A0001 556 



<<?. 



DISPLAY WORKSPACE POINTER (DWP) 



OUTPUT WORKSPACE POINTER, XOP 



B I WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



c 



ENTER MEMORY ADDRESS (EMA) 



STORE MEMORY ADDRESS, XOP 1 



J 



w, 



ENTER MEMORY DATA (EMD) 



GET DATA AND PUT IN MEMORY, XOP 1 



ENTER MEMORY DATA AND INCREMENT ADDRESS (EMDI) 



GET DATA FROM MICROTERMINAL AND PUT IN MEMORY PLUS 
INCREMENT ADDRESS, XOP 1 



GET DATA OUT OF MEMORY 



L j GO OUTPUT DATA TO MICROTERMINAL, XOP 
(P 2-38) 
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Z COMMAND, MICROTERMINAL COMMAND SCANNER (Continued) 




STEP RT 



OUTPUT PROGRAM COUNTER TO MICROTERMINAL, XOP 



^, 



GET THE DATA AT THE PC ADDRESS 



SET THE DELAY FLAG 



L J GO OUTPUT DATA TO THE MICROTERMINAL 

(P 2-38) 



J STEP 



SET THE STEP FLAG 



CLEAR THE HALF FLAG 



EXECUTE ONE INSTRUCTION 



A0001557 



") RETURN 
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Z COMMAND. MICROTERMINAL COMMAND SCANNER (Continued) 






^. 



DISPLAY CRU (DCRUI 



GET CONTROL WORD FROM THE MICROTERMINAL ,XOP 1 



CONSTRUCT STCR COMMAND 



EXECUTE STCR COMMAND 



L I GO OUTPUT DATA TO THE MICROTERMINAL 

(P 2-38) 



A0001557 
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Z COMMAND, MICROTERMINAL COMMAND SCANNER (Concluded) 



( ) 


' 


r 




1 


1 






1 




1 


1 



ENTER CRU (ECRU) 



GET CRU DATA FROM MICROTERMINAL, XOP 1 



SET UP LDCR COMMAND 



EXECUTE LDCR COMMAND 



B 1 WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



^, 



( ) HALT 



^ 



SET THE DELAY FLAG 



OUTPUT THE PROGRAM COUNTER, XOP 



GET THE DATA OUT OF MEMORY 



OUTPUT THE DATA , XOP 



^ 



B J WAIT FOR NEXT MICROTERMINAL COMMAND 

(P 2-33) 



A0001558 
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SECTION 3 
TIBUG LISTING 



The TIBUG listing is arranged in the following order: 

Listing 
Page 



Title 



0001 
0004 
0008 
0009 
0010 
0012 
0013 
0014 
0016 
0018 
0019 
0019 
0020 
0020 
0021 
0023 
0025 
0026 
0029 
0034 
0035 
0036 
0037 
0038 
0039 



System Definition 

System Initialization and Command Scanner 

XOP 1 3, Read Character 

XOP 1 2, Write Character 

System iVIessages 

XOP 1 1, Read a Character and Print It Out (Echo) 

XOP 14, ASCII Message Output 

M Command, Memory Inspect/Change 

XOP 9, Hex Input Routine 

XOP 10, Hex Output Routine 

S Command, Single Step Execution 

Unmaskable Load Interrupt 

B Command, Breakpoint 

XOP 1 5, Output WP, PC, and ST Contents 

C Command, CRU Inspect/Change 

W Command, Workspace Register Inspect/Change 

R Command, WP, PC, and ST Registers Inspect/Change 

D Command, Tag Dump 

L Command, 990 Tag Format Loader 

F Command, Fi nd Value in Memory 

H Command, Hex Arithmetic 

T Command, Set Baud Rate 

XOP 0, Microterminal Output Routine 

XOP 1, Microterminal Input Routine 

Z Command, Microterminal Command Scanner 



Flow Chart 
Page 



2-3 
2-4 
2 5 

2-6 

2-7 

2-8 

2-12 

2-14 

2-15 

2-16 

2-17 

2-18 

2-19 

2-21 

2-25 

2-26 

2-28 

2-29 

2-30 

2-30 

2-31 

2-32 

2-33 
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TIBUG LISTINGS 

IT BUG SDSMAf: 947075 «B 1 6: ::^:'r.: 23 FRIDAY, JUN I/-, l.v77. 

#»» SYSTEM DEFINniON *«-* PAut uOOl 

OOns IDT TIBUG 

(■»<;> 04 * 

0005 * TIBUG WCiRKSf^'ACE" DETHNITION 

0)006 «■ 

0007 F'FBO MRE£GS ECHI >F-FB0 

OOOn f-FBA FRFijS EQII :;ffba 

0009 FFC6 I REGS ERU >FFC6 

0010 FFD2 DUMYBF EQII >FFD2 

0011 FFD4 XREGS EQU >FFD4 

0012 FFF4 ASR EQII >FF[-^4 

0013 FFFA DUMPFG EQU >FFF6 

0014 FFF8 STHPFG FQU >FFF8 

0015 FFFA HALTFG EQU >FF-FA 

00 1 6 # 

0017 » USER RAM IS FRGM >FE00 TG >FFAE 
00 1 13 K- 

0019 « TIBUG RESERVED RAM IS FROM >FFBO TO UFFFE 

0(')2(') # 

002 1 * WORKSPACE l.JT 1 1. I 7 AT 1 ON 

<")0:c'':,'; * 

0023 * MREGS (MONITOR SCANNER WORKSPACE) 

0024 » ADDRESSES FFBO- FFCE (16 REGISTERS) 

0025 * MODULES WHICFH UTILIZE: 

0026 »*«•#** MONTP - SYSTEM IN7. AND COMMAND SCANNER 
(:)027 * # MIC = MEMORY INSPECT/CHANGE 

0023 » * EXEC ^= EXECUTE/SINGLE STEP/BREAKPOINT 

0029 ■« * GENTRY = CRI..I INSPECT/CHANGE 

0030 # * WENTY ~ USER WORKSPACE INSPEH T/CFIANGE 

0031 * « RENTY = STATUS INSPECT/CHANGE 

0032 » » DENTRY = DUMP MEMORY TO CASSETTE 

0033 * * LENTRY = LOAD MEMORY TO CASSETTE 
00:-;4 » * FIND = FIND WORD /BYTE 

0035 # * ARITH = HEX ARITHMETIC 

0036 »*»»»» TENTRY •■ TOGGLE TERMINAL FLAG 
O III 3 7 * 

0038 ■» ALL MODULES WHICH USE MREGS 

0039 * ARE TIBUG COMMAND PROCESSORS 

0040 * 

0041 « EREGS - ECHO ROUTINE WORKSPACE 

0042 •!■ ADDRESSES FFBA-FFCO (4 REGISTERS) 

0043 * 

0044 * I REGS - I/O WORKSPACT: 

0045 * ADDRESSES FFC6 -FFDO (6 REGISTERS) 

0046 * UTILIZED BY: 

0047 #****» READ - READ 1 ASCII CFIARACTER FROM TMS9v02 

0048 «■«•»##* WRITE - WRITE 1 A3CU i::HARACTGR TO rMS9902 
0C)49 * 

0050 * XREGS - XOP ROUTINES WORKSPACE 

0051 * ADDRESSES FFD4 -FFEO (7 REGISTERS) 

0052 * UTILIZED BY AIL XOP PROCESSORS EXCEPT READ' 

0053 * AND ■ WF^ITtrl" 
C)054 * 

0055 ■t(■■^t««■»^(■*■^^^t*»■«•^^■t^**#^^■t(*■tl #*»■»*****»##*■»•«*■»«*■«■ **»***«*» 
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TIBUG 
VM *** SYSTFM 

0057 
0050 '^J'* 

0059 0000 
°0002 

0060 0004 
\> ■ 0006 

' ■ „ 0008 
OOPQl. 

tV^joo?. i" booc 

OOOFi 

' 0012 
0062,; 0014 

,„,_ , ." 00 1 6 
00 1 8 
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KFBO 
014E 



# INTERRUPT VECTORS 

DATA MREGS, I NIT 



FFFF,^^, ^'^ 
FFFF V ■' 
FFFF^-U 
FFFF^ ^ 



rV 



DATA -I,-- 1,-1,-1 




DATA >FF6S , >FF88 , >FF8C , I^FFAC 
A/OT 70 Bie 0S6P 

DATA - 1 , - 1 , -1 , -1 , -1 , --1 , -1 , - 1 , -1 , -1 



/MTU e-cT 



J^ y u S& £> 



DATA -1,-1,-1,-1,-1,-1,-1,-1,-1,-1 



,^0038 
00 3 A 
0064c*-"-'3C 
''' 003E 



FFFF\% ,^. 
FFFF. y ^fj 



DATA -1,-1 



■it 



Uj ? » 2 

PC o3 
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i.0 



^5 



TIBUG 

*»•* SYSTffM 

0066 

0067 ,0040 
ftt©042 

0068 /)044 
^X)046 

C;2.V-0069 i)048 

2 S — ■2»004A 

.;/»04C: 

'^O04E 

0070/:>050 

"'0052 

^C>0S6 
r P058 
'='h>05A 

A j:»05c 

" 'V>G5E 
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PAOf; 000:; 



FFD4 f Zo 

06rE-^'a.\ 

FFD4.'l.*~ 
0724- C3 
FFFF^ ?» 
FFFF '2 5 
FFFFiSr 
FFFF a? 
FFFF^.t f 
FFFF "Sn 
FFFF 2,^ 



* XOP VECTORS; 

DATA XREGS,OTPTEN 



FFFF 



? "R 



007 



ly£)060 
W)062 



2F 
^31 ■ 

^ 'J p— 0072 P064 

OSy 0073 0068 

006A 

O 3 ^-0074 006C: 

006E 

3g 0075 0070 

0072 

o3/io076 0074 

0076 

Ql C 0077 0078 

007A 

0078 007C 

6 ?F ■ >00 7E 



.- PC 



FFFF -^-^ 

FFFF ^.p 

FFFF^jSe 

FFFF fe^ 

FFD4 

03:32-- 

FFD4 " '-'-> "^ 

02CE 

FFD4 

OSSC" 

FFBA 

0258 •■ 

FFC:6 

01B6' 

FFC:6 

01A6' 

FFD4 

025E' 

FFBO 

0:392 ■' 



DATA XREGS, INPTEN 
DATA --1,-1,-1,-1 

DATA -1,-1,-1,-1,-1 



DATA XREGS, WHXETY 
DATA XREGS, RHENTY 
DATA XREGS, WHENTY 
DATA EREGS,EC:HOEN 
DATA IREGS,WENTRY 
DATA IREGS,RENTRY 
DATA XREGS, MENTRY 
DATA MREGS,XOPENT 



XOP = MICRO TERMINAL OUTPOT 
XOP 1 = MICRO TERMINAL INPUT 
XOPS 2-7 == NOV DEF INED 

-1,-1 



XOP 8 = WRITE i HEX DIGIT 
XOP -9 = HEX « INPUT 
XOP 10 = HEX # OUTPI.IT 
XOP 11 = ECHO 
XOP 12 = WRITE CHARACTER 
XOP 13 = READ CHARACTER 
XOP 14 = MFiiSSAOE OUT 
XOP 15 
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TIBIJG 
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0081 
0082 
0083 
0084 
0085 
0086 
0087 
003S 
0089 
0090 
0091 
0092 
0093 
0094 
0095 
0096 
0097 
0098 
0099 
0100 
0101 
0102 

1 03 

1 04 
0105 
0106 
0107 
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1 08 

1 09 

1 1 
0111 

0112 
01 13 

0114 
0115 
0116 
1 1 7 
0118 
0119 
0120 
0121 

0122 
0123 

0124 

0125 
0126 
0127 
0128 

1 29 

1 30 

0131 
0132 



0080 
0082 
0084 
0086 
0088 
008A 
008C 
008E 
0090 
0092 
0094 
0096 
0098 
00 9 A 
009 C 
009E 
•ItOAO 
i:)0A2 
00A4 
00A6 
OOAS 
i:iOAA 
OOAC 
OOAF 
CiOBO 



OOP 2 
00B4 
0i">B6 
00 B3 



0000 
0000 
0001 
0002 
0003 
0004 
0005 
0006 
0007 
0008 
OOOB 

oooc 



0080- 

02E0 

FFBO 

04C1 

0202 

FFFC 

CCBl 

020 1 

0368 ■' 

CC81 

0209 

0080 •' 

04C:l 

064 1 

16FE 

tl:309 

IF 15 

1 606 

2F45 

0235 

5A00 

1 602 

0460 

073E' 

2FA0 

0227- 



04C0 
04 L 3 
0208 

<;»or» 1 



« SYSTEM INT AND COMMAND SCANNER 

OX OP OTPT,0 

DXOP INPT,1 

BXOP WHX1,8 

DXOP RHEX,9 

DXOP ECHO, 11 

DXOP MESG, 14 

DXOP READ, 13 
START EQU 
EREG EQII 
STOP EQU 1 
KEY EQU 2 
COUNT EQU 3 
VALUE EQU 4 
CHAR EQU 5 
I COUNT EQU 6 
POINT EQU 7 
WDBDY EQU 3 
LINK EQU 11 
CRIJBAS EQU 12 
» 
» MONITOR ENTRY POINT >00S0 



MONTOP EQU * 

LWPI MREGS 



nCKO 



TICKl 



CLR 

LI 

MOV 
LI 

MOV 
LI 



Rl 

R2,>FFFC 

»R1+,*R2+ 
R1,L0AD 

Rl ,«R2+ 
9 , MONTOP 



CLR Rl 

DECT Rl 

JNE TICKl 

MOV R9,R12 

TB 21 

JNE SiJAN 

READ CHAR 

CI CHAR,>5A00 



JNE 



SCAN 
©MTIN 



SCAN MESG (SpROMPT 



* INITIALIZE START, STOP 

■K 

CLR STAR! 
CLR COI..INT 
LI WDBDY, 1 



COMMAND SCAN ENTRY 
INT WP 

REG 1 = 
REG 2 = FFFC 

PUT ADDR OF MREGS IN FFFl; 
r<ECj 1 "ADDR OF LOAD F'OR SINGL 

PUT ADDR OF INIT IN FFFE 
INT RETURN POINTER 

SET UP TICK COUNT 

DEC COUNTER, 32 K LOOPS 

IF NOT DONE, JUMP BACK 

REG 12 = 80 = CRU OF 9902 

IS RECIEVE PUFFER REG FULL 

IF NO, L'O ON 

IF YES, GET CHAR FROM U TERM] 

DO WE HAVE A 'Z', I.E. MICROT 

IF NO WAIT FOR REG COMMAND 
GO 10 MICRO TERMINAL DSR 

OUTPUT F'ROMPT 



KEY, ETC 



E STEP 



NAL 
ERM 



WORD BOUNDRY REG 



» WAIT FOR A COMMAND ENTRY 
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0133 
0134 
0135 



OOBA 2EC:5 
OOBC 2FA0 
OOBE OlFC' 

0136 OOCO 06A0 
00C2 OOFA- 

0137 

1 38 

1 39 



0140 

0141 

0142 

0143 

0144 

0145 

0146 

0147 

0148 

0149 

1 50 

0151 

0152 

0153 

0154 

0155 

1 56 

0157 

0158 

0.159 

0160 

0161 

1 62 

0163 

0164 

0165 

0166 

0167 

0168 

0169 

0170 

0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

1 80 

0181 
0182 
0183 
0184 
0185 
0186 
0187 
0188 
0189 



00i::4 

00C5 

00C6 

00C8 

00C9 

OOCA 

OOCC 

OOCD 

OOCE 

OODO 

0001 

00D2 

00D4 

00D5 

00D6 

OODS 

00D9 

OODA 

OODC 

OODD 

OODE 

OOEO 

OOEl 

00E2 

00E4 

00E5 

00E6 

00E8 

00E9 

OOEA 

OOEC 

OOEO 

OOEE 

OOFO 

OOFl 

00F2 

00F4 



00F6 
OOFS 
OOFA 
OOFC 
OOFE 
0100 
0102 
1 04 



4D 
03 

0268 ••■ 
57 
01 

03FE-' 
45 
00 

0366' 
42 
01 

0386 ' 
53 
00 

0360' 
4C: 
01 

059A-' 
44 
07 

04B0' 
43 
03 

03B0' 
52 
00 

0474' 
46 
07 

06B6 '' 
48 
03 

06E4' 
54 
00 

06F8 ' 

0000 



022B 
0003 
C29B 
1322 
917B 
16FA 
DIBB 
C2DB 



ECHO CHAR 
MESG ©SPACE 1 



BL 



©SRCH 



* COMMAND SEARCH TABLE 
» 

TEXT 'M'- 
BYTE 3 
DATA M 
TEXT W 
BYTE 1 
DATA W 
TEXT E' 
BYTE O 
DATA E 
TEXT 'B' 
BYTE 1 
DATA B 
TEXT -S- 
BYTE 
DATA S 
TEXT 'I.'- 
BYTE 1 
DATA L 
TEXT -D-- 
BYTE 7 
DATA D 
TEXT -C' 
BYTE 3 
DATA C 
TEXT •R- 
BYTE 
DATA R 
TEXT 'F- 
BYTE 7 
DATA F 
TEXT 'W 
BYTE 3 
DATA H 
TEXT 'T' 
BYTE 
DATA T 
DATA 



RECEIVE AND ECHO A CHARACTER 
OUTPUT SiPACE 



MEMORY INSPECT/CHANGE 

2 POSSIBLE INPUTS 

ENTRY POINT 

USER STATUS INSPECT/CHANGE 

ONE HEX INPUTS 

EXECUTE 



EXECUTE WITH BREAKPOINT 
ONE HEX INPUT 

EXECUTE SINGLE STEP 



LOAD MEMORY FROM CASSETTE 



DUMP I MEMORY TO CASSETTE 
3 HEX INPUTS 

CRU INSPECT/CHANGE 



USER WORKSPACE INSPECT/CHANGE 

FIND BYTE/ WORD 

HEX ARITHMETIC 

733ASR TERMINAL COMMAND 

END OF TABLE 



» COMMAND SEARCH ROUTINE 
* 

SRCHLP AI LINK, 3 UPDATE POINTER 

SRCH MOV *LINK,10 SEARCH FAIL? 
.JEQ ERR4 YES, ERROR 

CB *LINK+,CHAR INPUT MATCH TABLE ENTRY? 
JNE SRCHLP NO, TO NEXT TABLE ENTRY 
MOVB *LINK+, ICOUNT NUMBER OF HEX INPUT FIELDS 
MOV »L INK, LINK GET ENTRY ADDRESS 

* ICOUNT SPECIFIES NUMBER OF HEX INPUT FIELDS 
* 
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0190 
0191 

0192 
0193 
0194 
0195 

0196 
0197 
019© 

0199 
0200 
0201 

0202 

0203 
0204 
0205 
0206 
0207 
0208 
0209 
0210 

0211 
0212 

0213 
0214 

0215 
0216 

0217 

0218 
0219 
0220 
022 1 
0222 
0223 
0224 
0225 

0226 
0227 
0228 
0229 
0230 

023 1 
0232 
0233 
0234 
0235 
0236 
0237 
023S 



0106 
1 08 
OlOA 
OlOC 
OlOE 
0110 
0112 
0114 
0116 
0118 
01 lA 

one 

OllE 
0120 
0122 
0124 
0126 
0128 
012A 



0120 
012E 
0130 
0132 
0134 
0136 
0138 
013A 
1 3C 
013E 
0140 
0142 
0144 
0146 
0148 
014A 
014C 



0986 

0207 

FFBO 

0916 

1 70D 

2E44 

0122' 

0136' 

CDC:4 

0583 

0285 

ODOO 

1305 

10F5 

05C7 

0285 

ODOO 

16F7 

045B 



04C0 

lOOB 

0200 

0001 

1008 

0200 

0002 

1005 

0200 

0003 

1002 

0200 

0004 

2FA0 

OlFO' 

2E00 

1 099 



01 4E 
0150 
0152 
0154 
0156 
1 58 
015A 
1 5C 



020C 
FFF4 
04FC 
0730 
04F0 
04DC 
020i:: 
0080 



SRL I COUNT, 8 ALIGN COUNT 
I..I POINT, MREGS INT POINTER 



INLOOP SRL I COUNT, 1 
JNC OEXIT 

HEX IN RHEX VALUE 

DATA NULL,£RR2 



DONE? 

IF YtS, GO TO COMMAND SCANNER 

ACCEPT HEX ENTRY 



MOV VALUE, *POINT+ SAVE HEX INPUT 



CNT 



NULL 



INC COUNT 

01 CHAR,>0D00 

JEQ CEXIT 
JMP INLOOP 
I NOT POINT 
CI CHAR,>ODOO 



...INE CNT 

CEXIT B »LINK 
« 

* ERROR HANDLER 
* 

ERRO CLR EREG 

JMP ERROR 

ERRl LI EREG, 1 

JMP ERROR 

ERR2 LI EREG, 2 

JMP ERROR 

ERRS LI EREG, 3 

JMP ERROR 

ERR4 LI EREG, 4 

ERROR MESG ©ERROUT 



COUNT I » ENTRIES 
END OF INPUT? 

YES, TO COMMAND PROCESSOR 
WAIT FOR NEXT INPUT 
UPDATE POINTER 
NO INPUT? 

NO, DEFAULT PARAMETER 
YES, TO COMMAND PROCESSOR 



LOAD ERROR- INVALID TAG 
LOAD ERROR-CHECKSUM 

TERM. CHARACTER ERROR 

DUMP ADDRESS ERROR 

INVALID COMMAND ERROR 
PRINT ERROR BANNER 
PRINT ERROR NUMBER 



WHXl EREG 
JMMONT JMP MONTOP 
* 

* UART INITIALIZATION ROUTINE— USER INPUTS 
« ONE -A . BAUD RATE DETECTED FROM LENGTH 
» OF THE START BIT. 
» 
INIT LI R12,ASR 



015E IDIF 



CLR *R12+ 
SETO *Rr2+ 
CLR *R12+ 
CLR »R12 
LI CRLIBAS,>SO 



* INITIALIZE TMS9902 FOR! 

» 
* 
» 

SBO 31 



REG 12 = STARTING ADDR 

CLEAR ASR 
RESET DUMP FLAG 
CLEAR STEPFG 
CLEAR HALTFG 
SET CRU BASE REG. 



*BAUD RATE 

»7 BITS/CHARACTER 

*EVEN PARITY 

»2 STOP BITS 

♦POLLED OPERATION 

RESET TMS9902 UART 



3^ 
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0239 

0240 
0241 
0242 
0243 
0244 
0245 
0246 
0247 
0248 
0249 
0250 

0251 
0252 
0253 
0254 
0255 
0256 
0257 
0258 

0259 
0260 

0261 
0262 

0263 
0264 

0265 

0266 

0267 

0268 



0160 
0162 
0164 
0166 
0168 
016A 
0i6C: 
016E 
0170 



0172 
0174 
0176 
0178 
017A 
017C 

017E 
0180 
0182 
0184 
0186 
0188 
018A 
018C 
018E 
0190 
0192 
0194 
0196 
0198 
019A 
019C 
019E 
OlAO 
01A2 
01A4 



3220 

01A4' 

lEOD 

04C3 

IFOF 

13FE 

0583 

IFOF 

16FD 



0207 
0194' 
8DC3 
1202 
05C7 
lOFC 
017E-' 
3317 
C1D7 
0287 
OlAO 
1602 
0720 
FFF4 
2F45 
2FA0 
022B' 
lODC 
0040 
OODO 
0070 
OlAO 
0200 
04D0 
0400 
0633 
62 



LDCR @i::R,8 

SBZ 13 

CLR COUNT 

TSTSP TB 15 

JEQ TSTSP 

SPLOOP INC COUNT 

TB 15 

JNE SPLOOP 



INITIALIZE rMS9902 CON fROL REG. 

DO NOT INT INTERVAL REG. 

RESET LOOP COUNT 

SPACE? 

NO, JUMP BACK 

TIME THE START BIT 

FALL. OUT ON A MARK 



♦ TABLE SEARCH FOR BAUD RATE 



LI 



POINT, TABLE SET POINTER TO TABLE 



BDLOOP C COUNT,*POINT+ MATCH? 

Jl.E MATCH YES, SET BALID RATE 

INCT POINT NO, UPDATE POINTER 

..IMP BDLOOP 
MATCH EQU * 

LDCR *P0INT,12 INT. REC, /XMT. DATA RATE 

MOV *P0INT,P0INT 

CI POINT, >1A0 1200 BAUD ? 



JNE BANNER 
SETO @ASR 

BANNER READ CHAR 

MESG ©LOGON 

JMP JMMONT 
TABLE DATA >40,>D0 

, DATA >70,>1A0 

DATA >200t>4D0 

DATA >400,>638 

CR BYTE >62 



LEAVE ASR FLAG ALONE 
SET 733ASR FLAG 



PRINT LOO ON MESSAGE 

TO TOP OF MONITOR 
2400 BAUD 

1200 BAUD 

300 BAUD 

110 BAUD 
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*#* READ CHARACTER *** s PAGE OOOS 

0271 *«»»»«»«»*»*»»**»*****»»*«***»«■»***»*#*#**»•***»»«■ 

0272 * READ CHARACTER — XDP R, 13 

0273 * ~ NORMAL RETURN 

0274 * 

0275 « READ WAITS FOR A CHARACTER TO BE ASSEMBLED IN 

0276 # THE UART. THE CHARACTER IS PLACED IN THE LEFT 

0277 # BYTE OF USER REGISTER R. THE RIGHT BYTE IS 
027S # ZEROED. ALL ERRORS ARE IGNORED. 

0279 «»«*#*»*#«*«»»*»*•»*»*»*♦»**♦»«»*#*«■»#»#*#***«*•■«•«« 

0280 » 

0291 01A6 020C RENTRY LI CRUBAS,>80 SET CRU BASE REG. 

01A8 0080 
0282 OlAA 1F15 TB 21 RECEIVE BUFFER REG. FULL? 

0233 01 AC 16FC JNE RENTRY NO, LOOP 

0284 OlAE 04DB CLR *LINK 

0285 01 BO 36 IB STCR *LTNK,8 

0286 01B2 1E12 SBZ 18 

0287 01B4 0380 RTWP 
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r-'AGE 0009 



0290 






0291 






0292 






0293 






0294 






0295 






0296 






0297 






029S 






0299 






0300 






0301 






0302 


01B6 


020A 




01B8 


0EA6 


0303 


OIBA 


020C 




1 DC 


0080 


0304 


01 BE 


IDIO 


0305 


01 CO 


1F16 


0306 


01C2 


1 6F9 


i:)307 


01C4 


321B 


0308 


01C6 


D2DB 


0309 


01C8 


lElO 


0310 


OICA 


09SB 


0311 


1 CC 


028B 




OICE 


OOOD 


0312 


01 DO 


1608 


0313 


01D2 


0A3A 


0314 


0104 


1F16 


0315 


01D6 


16FE 


0316 


01D8 


1F17 


0317 


01 DA 


1 6FC 


0318 


01 DC 


060A 


03 1 9 


OlDE 


16FE 


0320 


OlEO 


0380 


0321 


01E2 


C2E0 




01 £4 


FFF6 


0322 


01E6 


1 303 


0323 


01E8 


C2E0 




OlEA 


FFF4 


0324 


01 EC 


16F3 


0325 


OlEE 


0380 



* WRITE CHARAi::TER -- XOP R,12 

* NORMAL RETURN 

» 

» TRANSMIT THE CHARACTER IN THE LEFT BYTE OF 

* USER REGISTER R. IF THE CHARAC TER IS A 

* CARRIAGE RETURN, THE ROUTINE WAITS 200 MSEC FOR 
» THE CARRIAGE rO RE-VURN. IF THE TERMINAL IS 

* A 733ASR AS DENOTED IN THE T COMMAND, EACH 

* CHARACTER IS PADDED WITH 25 MSEC TO REDUCE 

* THE TRANSFER RATE TO 300 BAUD. 
**»«■»■((■•«•«■»»■«■#»«•»»♦«•*«•«■«•*»*»**»■»■»***<(•**«•«•#»##)(«•»«•» 

WENTRY LI RIO, 3750 



LI 



CRUBAS,>SO 



SBO 16 
TB 22 
JNE WENTRY 
LDCR *LINK,8 
MOVB *L INK, LINK 
SBZ 16 
SRL LINK, 8 
CI LINK,>OOOD 



SET CRU BASE REG. 

SET RTSON 

TRANSMIT BUFFER REG. EMPTY; 
NO, WAIT UNTIL IT IS 
CHARAi::TER fO UART 

RESET RTSON 

CARRIAGE RETURN 

NO, SKIP 

WAIT FOR XMISSION TO END 



JNE ASR733 

SLA RIO, 3 

WLOOPl TB 22 

JNE WI-OOP 1 

TB 23 

...INE WLOOPl 

WL00P2 DEC RIO WAIT LOOP 

JNE WL00P2 

RTWP 

ASR733 MOV ©DUMPFCLINK IN DUMP ROUTINE 



JEQ WEXIT 
MOV @ASR,LINK 

JNE WLOOPl 
WEXIT RTWP 



YES, IGNORE ASR FLAG 
ASR733 ? 

YES, WAIT 3 NULLS 



3-11 



TIBUG SDSMAC 947075 *B 

*»* MESSAGES *** 



1 6 : 35 ! 23 PR 1 DAY , ^.lUN 17, .1 977 . 



PAGE 0010 



0328 






0329 






0330 






0331 






0332 






0333 






0334 


OlFO 


OD 




OlFl 


OA 


0335 


01F2 


45 




01F3 


52 




01F4 


52 




01F5 


4F 




01F6 


52 




01F7 


20 


0336 


01F8 


00 


0337 


01F9 


20 




01 FA 


20 


0338 


OlFB 


20 


0339 


OlFC 


20 


0340 


OlFD 


00 


0341 


OlFE 


00 




OlFF 


OA 


0342 


0200 


42 




0201 


50 


0343 


0202 


00 


0344 


0203 


49 




0204 


44 




0205 


54 




0206 


3D 


0345 


0207 


00 


0346 


0208 


OD 




0209 


OA 


0347 


020A 


52 




0208 


45 




020C 


41 




020D 


44 




020E 


59 




020F 


20 




0210 


59 




02 1 1 


2F 




0212 


4E 




0213 


20 


0348 


0214 


00 


0349 


0215 


46 


0350 


0216 


or:t 




0217 


00 


0351 


0218 


OA 




0219 


7F 




021 A 


3A 




02 IB 


OD 




02 1 C 


OA 




02 in 


7F 




02 IE 


13 




02 IF 


OD 




0220 


14 


0352 


0221 


7F 




0222 


00 


0353 


0223 


12 


0354 


0224 


i:)A 




0225 


7F 



» SYSTEM MESSAGES FOR 'MESG- 

* MONITOR MESSAGES 
ERROUT BYTE >D,>A 

TEXT 'ERROR ' 



BYTE 

SPACE4 TEXT ' ' 

SPAC:E2 TEXT ■- 

SPACE 1 TEXT •■ ' 

BYTE O 

BPMSG BYTE >D,>A 

TEXT -BP' 

BYTE 

IDTEQ TEXT 'IDT=- 



BYTE O 
READY BYTE >D,>A 

TEXT 'READY Y/N 



BYTE 

FCR TEXT 'F' 

BYTE >D,0 

EOF BYTE >A , >7F , >3A . >D , :>A , >7F , > 1 3 , >D , > 1 4 



RUBOUT BYTE >7F,0 

DC2 BYTE >12 

NR BYTE >A,>7F,0 
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SDi 


SMAC 947075 *B 16:3 


*** MESSAGE 


S #** 










0226 


00 








0355 


0227 
0228 


OD 
OA 


PROMPT 


BYTE 


>D,>A 


0356 


0229 


3F 




TEXT 


.■■ •-. .■• 


0357 


022A 


00 




BYTE 





0358 


022B 
022C 


OD 
OA 


LOGON 


BYTE 


>D,>A 


0359 


022D 
022E 
022F 
0230 
0231 
0232 
0233 
0234 
0235 
0236 
0237 


54 
49 
42 
55 
47 
20 
52 
45 
56 
2E 
41 




TEXT 


•TIBUG Rl 


0360 


0238 
0239 


OD 
OA 


CRLF 


BYTE 


>D,>A 


0361 


023A 


OOOA 


TEN 


DATA 


10 


0362 


023C 


57 


MS 


TEXT 


•'W' 


0363 


023D 


00 




BYTE 





0364 


023E 


50 




TEXT 


■•P- 


0365 


023F 


00 




BYTE 





0366 


0240 


53 




TEXT 


••S' 


0367 


0241 


00 




BYTE 





0368 


0242 
0243 


OD 
OA 


CRl.FR 


BYTE 


>D,>A 


0369 


0244 


52 


RP 


TEXT 


'R- 


0370 


0245 


00 




BYTE 





0371 


0246 
0247 


OD 
OA 


HP 


BYTE 


>0D,>0A 


0372 


0248 
0249 
024A 
024B 
0240 
024D 


48 
31 
2B 
48 
32 
3D 




TEXT 


•••Hl+H2=-' 


0373 


024E 


00 




BYTE 





03 74 


024F 
0250 
0251 


20 
20 
48 


HM 


TEXT 


•' H1-H2 




0252 


31 






' 




0253 


2D 










0254 


48 










0255 


32 








0375 


0256 


3D 


EQUSGN 


TEXT 


■■■=:■' 


0376 


0257 


00 




BYTE 






FRIDAY, ...IIJN 17, 1977. 
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TIBUG SDSMAC 947075 «B 16:35:23 FRIDAY, JUN 17, 1977. 

»*# CHARACTER ECHO *»* PACE 0012 

0379 «*«*»*«*******« ###«#**#****<f*#***»**-» ***»«»»***»*****■»*■» «■■»•»* 

0330 * 

0381 » READ A CHARACTER AND ECHO IT TO THE TERMINAL 

03S2 * (XOP R, 11) 

0383 « 

0384 * CALLING SEQUENCE: ECHO R 

0385 * NORMAL RETURN 

0386 « 

0387 »*««»«»********«*»#»**^#*»« »«»*#*#*###***■»•»***«■•( »»»*»*«-!(■*■»#*» 

0388 DXOP WRIT, 12 

0389 0258 2F5B ECHOEN READ *LINK READ CHARACTER 

0390 025A 2F1B WRIT *LINK ECHO THE CHARACTER 

0391 025C 0380 RTWP 
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TIBUG SDSMAC 947075 *Ei 16:35:23 FRIDAY, JUN 17, 1977. 

»»* ASCII MESSAGE OUTPUT ♦** PAGE 0013 

0394 ****#ij*«*##.»»«*#»»-ti-#»***##»»*#***#* »**»*»»*#*#*« »#*»»«*»»*■)(« 

0395 # 

0396 # MESSAGE OUTPUT (XOP ©MESSAGE, 14) 
<5397 » 

039& * CALLING SEQUENCE: MESG ©MESSAGE 

0399 » NORMAL RETURN 

0400 * 

0401 » OUTPUT THE ASCII STRING POINTED TO BY THE ADDRESS IN 

0402 * Rll. OUTPUT IS TERMINATED WHEN A ZERO IS ENCOUNTERED. 

0403 » 

0404 ***•)!•#■«•»■«■»**»*»***»*»#*»*»«♦»***#*»»*#*«#»#*******#»«»******# 

0405 OOOC BUFFER EQU 12 

0406 * 

0407 * 

0408 025E D33B MENTRY MOVB *R11+, BUFFER GET THE CHARACTER 

0409 0260 1302 JEQ EXIT IF 0, EXIT 

0410 0262 2F0C WRIT BUFFER OUTPUT CHARACTER 

0411 0264 lOFC JMP MENTRY 

0412 0266 0380 EXIT RTWP RETURN 
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«»# MEMORY INSPECT/CHANfjE #** 



16: 



FRIDAY, JUN 17, 1977. 
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0415 

0416 

0417 

0418 

0419 

0420 

0421 

0422 

0423 

0424 

0425 

0426 

0427 

0428 

0429 

0430 

0431 

0432 

0433 

0434 

0435 

0436 

0437 

0438 

0439 

0440 

0441 

0442 

0443 

0444 

0445 

0446 

0447 

0448 

0449 
0450 

0451 
0452 
0453 
0454 
0455 
0456 
0457 
0453 

0459 
0460 

0461 
0462 
0463 

0464 
0465 
0466 

0467 



0268 
026A 
026C 
026E 



:)270 
0272 
:)274 
0276 
)278 
027A 
)27C 
027E 
>2S0 
>282 
1)284 
:i286 
)288 
:>28A 
:)28C 
:)28E 
!i290 
)292 
:i294 
0296 
0298 
:i29A 
029C 
)29E 
02A0 
>2A2 
>2A4 
>2A6 



0000 
000 1 
0005 



4008 
4048 
0603 
13 IE 



0008 

2FA0 

0238- 

2E80 

2FA0 

0256- 

2E90 

1F15 

1 324 

8040 

1322 

05C0 

<:)/-.03 

0283 

0004 

1602 

2FA0 

OlFB- 

C0C3 

13EB 

2FA0 

OlFB- 

1 OEF 

0640 

0285 

2D00 

1 302 



* I NSF'ECT /CHANGE MEMORY - -M- COMMAND 
♦ 

* OPTIONS: 



1> START ADDRESS, CARRIAGE RETURN -— 
DISPLAY ADDRESS, CONTENTS, AND 
OPEN THE MEMORY LOCATION FOR A CHANGE. 

2) CARRIAGE RETURN — SAME AS 1) BUT THE 
DEFAULT START ADDRESS IS 0000. 

3) START ADDRESS, BLANK (OR COMMA), STOP 
STOP ADDRESS, CARRIAGE RETURN — OUTPUT 
MEMORY CONTENTS FROM START ADDRESS TO 
STOP ADDRESS. DEFAULT VALUES FOR BOTH 
ADDRESSES ARE 0000. 



* 

* 

* 

■ft 

ft 

» 

ft 

» 

* 

« 

» 

«■*»»»*»»»*■»** ft-»ft-#»ftft#ft«-ft#ft«-ft#-ft*ft-ft«-tt**ft.»*#ftttft.** 

STARTA EQU 

STOPA EQU 1 

TCHAR EQU 5 

DXOP WHEX, 10 
ft 
ft 
M SZC WDBDY, STARTA WORD ALIGN START ADDRESS 

SZC WDBDY, STOPA WORD ALIGN STOP ADDRESS 



1 INPUT? 

YES, TO MEMORY INSPECT/CHANGE 



NEXT LINE 

PRINT ADDRESS OF FIRST LOCATION 
DELIMITER 

PRINT MEMORY CONTENTS 

IS A CHARACTER IN ?• 

IF A KEY IS DEPRESSED, GET OUT 



DEC COUNT 
..lEQ MIC 
ft 

* MEMORY DUMP ROUTINE 

MLOOPl LI COUNT, 8 

MESG ©CRLF 

WHEX STARTA 
MESG OEQUSGN 

ML00P2 WHEX *STARTA 
TB 21 
JEQ MEXIT 
C STARTA, STOPA DONE? 
JEQ MEXIT YES, EXIT 
INCT STARTA NO, UPDATE ADDRESS 
DEC COUNT 
CI COUNT, 4 

JNE MSKIP2 
MESG @SPACE2 

MSKIP2 MOV COUNT, COUNT DONE WITH LINE? 

JEQ MLOOPl YES, TO NEXT LINE 
MESG @SPACE2 DELIMITER 

JMP ML00P2 
MI CI DECT STARTA LAST ADDR ? 

CI TCHAR, ---■*256 OPEN PRE MEMORY LOC 

JEQ MIC 
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riBUG Si:i:r:MAC 947075 *D 16:35:23 FRIIJAY, JUN 17, 19/7. 

*** MEMORY INSPECT/CHANGE *#* PAGE OdlS 

0468 02AS 0220 A I R0,4 TWO INCT S 

02AA 0004 
046'? 02AC: 

0470 * 

0471 * MEMORY INSPECT /CHANGE ROUMNE 

0472 * 

0473 02AC 2FA0 MIC MESG ©CRLF NEXT LINE 
02AE 0238- 

0474 02B0 2E80 WHEX ST ART A PRINT ADDRESS 

0475 02B2 2FA0 MESG ©EQUSGN PRINT ■' = ■' 
02B4 0256 ■' 

0476 02B6 CH0 MOV «ST ART A, VALUE 

0477 02B8 2E84 WHEX VALUE OUTPUT CONTENTS 

0478 02BA 2FA0 MESG @SPACE2 DELIMITER 
02BC OlFB' 

0479 02BE 2E44 RHEX VALUE ACCiEPT NEW INPUT 

0480 02C0 02C4' DATA MNULL,ERR2 
02C2 0136' 

0481 02C4 C404 MNULL MOV VALUE, »STARTA UPDATE CONTENTS 

0482 02C6 0285 CI TCHAR,>DOO RETURN TO COMMAND SCANNER? 
02C8 ODOO 

0483 02CA 16EA JNE MI CI IF NO, GO ON 

0484 02CC 0459 MEXIT B *9 EXIT 
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TIBUG SDSMAC 947075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

*** HEX INPUT »*# PAGE 0016 

0437 »«»«*»**<t*#*.tt »■«■*»■«■*«#*#**»*»*««««»»*##«*»*»«»««***** »*«****<^ 

04:3:3 * HEX INPUT ROIJTINE ( XOP R,9) 

0489 . »C:ALL: RHEX R 

0490 * DATA NULL, ERROR 

0491 # NORMAL RETURN 

0492 * 

049:--! ♦ RETURNS A 16-BIT NUMBER INPUT FROM TERMINAL. DIGITS 

0494 * ARE ACCEPTED UNTIL A TERMINATION CHARACTER IS FOUND. 

0495 * 

0496 » TERMINATION CHARACTERS: SPACE, COMMA, CARRIAGE RETURN, MIN 

0497 » 

0498 » THE TERMINATION CHARACTER IS RETURNED IN THE LEFT 

0499 » BYTE OF THE REGISTER FOLLOWING R - . 

0500 * 

0501 * RETURN IS TO THE NULL RETURN ADDRESS IF INPUT IS 

0502 * A TERMINATION CHARACTER ONLY. 

0503 » IF A FAULTY TERMINATION CHARACIER IS FOUND, 

0504 * RETURN IS TO THE ERROR ENTRY. 

0505 **-)(.«*<nt#**#»**»###»»**««»*»«**»*«#*»««***-it»***»»-it ***«***#*»* 

0506 OOOD WP EQU 13 

0507 OOOE PC EQU 14 
050:3 « 

0Pi09 » 

0510 02CE 04C9 RHENTY CLR R9 RESET NUMBER INPUT FLAG 

0511 02D0 04CC CLR BUFFER CLEAR ACCUMULATOR 

0512 02D2 2ECA LOOP ECHO RIO GET A CHARACTER INPUT 

05 1 3 * 

0514 « CHECK FOR VALID HEX INPUT 

0515 » 

0516 02D6 ■■ ZERO EQU *+2 

0517 02D4 02:3A CI RIO, O' »256 MIN NUMERIC 
02D6 3000 

0518 02DS lAll JL NOTHEX 

0519 02DA 023A CI RIO,' 9' #256 MAX NUMERIC 
02DC 3900 

0520 02DE 120:3 JLE GOTONE 

0521 02E0 02:3 A CI RIO, ■ A-*256 MIN ALPHA 
02E2 4100 

0522 02E4 lAOB 

0523 02E6 028A 
02ES 4600 

0524 02EA IBOS 

0525 02EC 022A 
02 EE 0900 

0526 02F0 0A4A GOTONE SLA RIO, 4 ISOLATE DIGIT 

0527 02F2 09CA SRI.' RIO, 12 WORD ALIGN DIGIT 

0528 * 

0529 » DIGIT TO ACCUMULATOR 

0530 »■ 

0531 02F4 0A4C SLA BUFFER, 4 

0532 02F6 A30A A RIO, BUFFER 

0533 02FS 0589 INC R9 SET INPUT FLAG 

0534 02FA lOEB JMP LOOP 

0535 * 

0536 * CHECK FOR TERMINATION CHARACTER 

0537 » 

0538 02FC 028A NOTHEX CI RIO,-' ■■«256 ■ - ••' 
02FE 2000 

0539 0300 130B ...lEQ SPL^:! 

0540 0304' MINUS EQU *+2 
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JL 


NOTHEX 




CI 


RIO, •F-K-256 


MAX ALPHA 


JH 


NOTHEX 




AI 


RIO, >900 


ALPHA ADJI 



T I BUG 
#*# HEX 



SDSMAC 
INPUT *»* 



94707S «B 



16!: 



FRIDftY, JUN 17, r>7 7. 



PAGE 0017 



054 1 

0542 
0543 

0544 
0545 

0546 
0547 

054S 
0549 
Ci550 
0551 
0552 
0553 
0554 
0555 
0556 
0557 
0558 
0559 
0560 



liOk' 
304 
30 1^. 
30i3 
30A 
30C 
30E 
3 1 
312 
314 
16 
18 
31A 
31C 
31E 
320 
322 
'^24 
26 

32A 
!2C 
:2E 
:30 



028A 
2D00 
1 308 
028A 
0DiI>0 
1 305 
02SA 
2C0C) 
1 60D 
020A 
2000 
C249 
1 305 
CECC 
C6i::A 
05CE 
05i::e 
0380 
05CB 
C:6C:A 
C39e 
0380 
05CE 
lOFC 



;;PCK 



NEXIT 
EXITl 
ERR 



CI 

JEQ 
HI 

JEQ 
CI 

JNE 
LI 

HOV 

JEQ 

HOV 

MOV 

INCT 

I NC 1" 

RTWP 

INCT 

MOV 

MOV 

RTWP 

INCT 

..IMP 



RIO, 



■'«256 



SF-'CK 
R10,>D00 

SPCK . 

RIO, •■ , ■■*256 

ERR 

RIO,' #256 

R9,R9 
NEXIT 



CARRIAGE RETUF^N? 



COMMA? 

NO, TERMINATION CHAR ERROR 
i::HANGE TO SPACE 

NULL INPUT? 
YES, shap 



BUFFER, *R11+ RETURN VALUE 



R 1 , *R 1 1 

PC 

PC 

Rll 

R10,*R11 
*PC , PC 

PC 
EXITl 



RETURN TERMINATOR 
BUMP PAST NULL PQJNTER 
BUMP PAST ERROR POINTER 



RETURN TERMINATOR 
GET POINTER 

POINT TO ERROR POINTER 



3-19 



TIBIIH ■:.IVE:MAr. ^4707:5 »B 16:35:23 FF^IDAY, JUN 17, 1977. 

*** HEX OUTPUT «»* TM-c .. - . ^ 

#* s *»««»«*■»•« «-tti(-*#«««*«**-»«-«*^-» ********************* ********** 

■« HEX OUTF'UT ROUTINES 

-i; 

n ROUTINE 1 : XOP R, lu 

* 

* r;Al L: WHEX R 

» NORMAL RETURN 

■» 

* OUTPUT THE BINARY CuNTENIS OF R' AS 
*■ 4 HEXADECIMAL DIOITS. 

•tt ROUTINE 2: XOp R,;S 

« 

ti I Al L: WHXl f< 

fl - - NORMAL RETURN 

J. nOTPUl RIGHI MiJt. I HEX lUiMT IN R. 

■a 

* WHXl ENTRY F'OINT 

1! 

yU^LVY MOV ■»?>•]], DUFFER 0[ r VALUE TO PRINT 
SI A PUFFER, 1 .■■• 
II p'',l SET rriUNT FOR 1 DIGIT 

UMF' LiJMl'J 
ii 

WHEX ENTRY POINT 
n 

ID WHENLf MOV ^f' 11 , Di IFFER Of 'I THE VALUE 

,;,S97 033E 02'r-> LI R',4 -T- I lOUNI FOR 4 DIGITS OUT 

0340 0<;i04 

o'-.QR 034- r-"PA- I Oiip] MOV DUfFER.RlO 

0SQ9 0344 OVCA '-■RE RlM,!.:: P;.oLATE HEX DIGIT 

OAOO OS4A OASA SLA R]ii,S DiTE ALIGN 

0601 0343 023A CI UiO,:^'''00 NUMERlL:' 

OS 4 A OvOO 

.)60- OS4r; 120? JLE NIIM YLS, SF J P 

0603 034E n.^'2A AI RIO,:. 700 ALPHA ADJUST 
O:'-:50 0/00 

0604 03*^2 022A tJi IM A I RIO, 0« 256 NUMERIC TO ASCII 
(');':S4 3000 

0605 0356 2F0A WRIT RIO WFU TE CHARACTER 

0606 0358 0BC:C SRC BUFF'ER,12 ALIGN NEXT DIGIT 

0607 035A 0609 DEC: R9 DONE-' 
0603 035C 16F'2 'JNE LOOF'l NO, LOOP 
0609 0:35E 0330 RTWF' 



0563 








0564 








0565 








0566 








0567 








0563 








0569 








0570 








057 1 








0572 








0573 








0574 








0575 








05 7 6 








0577 








057S 








0579 








(J580 








(.1531 








0532 








<:i5S3 








0584 








0535 








0536 








0537 








05S8 








05;E:9 


03 


•~> -' f 


C3FD 


0590 


03 


:34 


OACC 


0591 


03 


36 


020'9 




OS; 


S"3 


<:'00 1 


( )592 


03 


3 A 


1 0'J '-■ 


oS9>; 








i>594 








>i595 








0":i96 


03 


:3L 


c :■■ 1 D 
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TIBUG 

*»* SINGLE 

0612 
0613 
0614 
0615 
0616 
0617 
0618 
06 1 9 
0620 
0621 
0622 
0623 



SDSMAC 947075 *B 16:3^ 
STEP/EXEXUrE/LOAD *#» 



FRIDAY, JIJN 17, 1977. 
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«»#»^(■■t^^^*^«■#■(^»^^■)^^»•«#^^«•^^^).#»^^#^^^^^t.#^f.#^(.^n(.^nn^^n^^f^nn^^f^#^^##^(.^nf^^^^^^^^^ 
* SINGLE STEP /EXECUTE ENTRY 

««*#^^•»•t^*■t^»^^»•t^#♦»^^^^■t^^(■^^*^^^t^^^^^t**^t^^«^t^^^(.^^^^^^##^^^(^^#^^^^^,.j^^^#^f^^(.^,^,^^#^^^,^^ 
* 

0006 BPDATA EQU 6 

0007 TFLAG EQU 7 
* 

» SINGLE STEP ENTRY 



0624 

0625 
0626 
0627 
0628 
0629 
0630 
0631 
0632 
0633 

0634 
0635 

0636 
0637 
0638 

0639 
0640 
0641 
0642 
0643 



0360 
0362 
0364 



0360 ' 
0207 
9900 
03E0 



0366 0380 



S EQU * 

LI TFLAG, >9900 SET TRACE FLAG 

LREX INITIATE LOAD INTERRUPT 
» EXECUTE ENTRY POINT 
E RTWP 
* LOAD ENTRY 

CI TFLAG, >9900 SINGLE STEP? 



0368 0287 LOAD 

036A 9900 

036C 1316 

036E 0201 

0370 FFFA 

0372 C091 

0374 1302 

0376 0460 

0378 07E0'- 

037A 0641 LOADl DECT Rl 

037C C091 MOV »R1,R2 

037E 1316 JEQ BRAMON 

0380 04D1 CLR *R1 

0382 0460 B ©STEPRT 

0384 07AA' 



JEQ WPSOUT 

LI R1,HALTFG 

MOV »R1,R2 

JEQ LOADl 

B ©HALT 



YES, TO WPS OUTPUT 

REG 1 = ADDR OF HALT FLAG 

IS HALT FLAG ON ? 
IF NO, GO ON 
GO TO HALT 

REG 1 = ADDR OF STEP FLAG 
IS STEP FLAG SET ? 
IF NO, GO TO TOP OF MONITOR 
CLEAR STEP FLAG 
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TIBUG SDSHAC 947075 *B 16:35:23 FRIDAY, JUN 17, 1977. 

**# BREAKPOINT HANDLER »*» PAGE 0020 

0^.,4i, #*»#»«»«»*#*####»*»******«***»«**«**«*#*»«*«**»*»*«*#*****«■* 

0647 # 

0648 * BREAKPOINT HANDLER 

0649 * 

OASn * SAVE THE CONTENTS OF THE ADDRESS INDICATED. INSTALL AN 

0651 # XOP 15 O2FC0) IN THE LOCATION AND PASS CONTROL TO 

0652 * USER PROCEEDLIRE. 
06.53 * 

0654 * WHEN XOP 15 IS EXECUTED, PRINT • BP - FOLLOWED BY CONTENDS 

0655 » OF USER WP, PC, AND ST AT THE BREAKPOINT. CONTROL IS THEN 

0656 * PASSED TO THE MONITOR COMMAND SCANNER. 

0657 * 

0658 *#*«**«»#*«***»»*»#*»*«##*»#*#***#******»*#**«*«•******#*»*#* 

0659 * 

0660 * 

0661 * GET BREAKPOINT ADDRESS 

0662 » 

0663 0386 4008 B SZC WDBDY, START WORD ALIGN ADDRESS 

0664 * 

0665 * SAVE DATA AND INSTALL XOP 15 

0666 * 

0667 0388 CI 90 MOV »START, BPDATA 

0668 038A C420 MOV ©BPXOP, *SrART 
03SC 0390 •■' 

0669 038E 0380 RTWP 

0670 0390 2FC0 BPXOP DATA >2FC0 

0671 » 

0672 ^( XOP 15 ENTRY POINT 

0673 * 

0674 0392 064E XOPENT DECT PC UPDATE USER PC 

0675 0394 C406 MOV BPDATA, *START RESTORE LOCATION 

0676 * 

0677 « OUTPUT -BP' FOLLOWED BR USER WP, PC, AND ST AT BREAKPOINT 

0678 * 

0679 0396 2FA0 MESG ©BPMSG NEW LINE AND -BP- 
0398 OlFE" 

0680 039A 04C7 WPSOUT CLR TFLAG RESET FLAG 
0631 039C 020A LI RIO, -6 SET LOOP COUNT 

039E FFFA 

0682 03A0 2FA0 XLOOPl MESG @SPACE4 PRINT 4 SPACES 
03A2 01F9' 

0683 03A4 2EAA WHEX @MREGS+32 ( RIO) PF^NT STA'I US 
03A6 FFDO 

0684 03A8 05CA INCT RIO 

0685 03AA 16FA JNE XLOOPl 

0686 03AC 0460 BRAMON B ©MONTOP TO COMMAND SCANNER 
03AE 0080 
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TIBUG SDSMAC 947075 *B 16:35:23 FRIDAY, . II IN 17, 1977. 

*## CRLI/INSPt~CT CHANGE *»» pf^OE 0021 

06B?^ »*»*■»^*■i^*^^*#*#■t^***^^##^(■^^*##^^*■«•*^^**»»■^^«*^nn(.^t^(.^^*«^nnt^n,^^ 

0690 * 

'-'691 * CRU INSPECT/CHANGE — -C ' COMMAND 

0692 * 

'-"'''-■ '^S « INPUT THE CRU BASE ADDRESS FOLLOWED BY THE BIT 

0694 » COUNT. ALL INPUT AND OUTPUT TO THE CRU IS RIGHT 

<='695 * JUSTIFIED IN THE 16 BIT INPUT /OUTPUT DATA FIELDS. 

0696 * 

0^-'^^7 « INPUT OF A CARR. RET. AS A TERMINATION CHARACTER 

'-'69S » RETURNS CONTROL TO THE COMMAND SCANNER. A •■ ■- AS 

0699 # TERMINATION CHARACTER CAUSES THE CRII INPUT BITS 

O^OO * TO BE OUTPUT AGAIN AS WELL AS THE CRU OllTpllf BITS 

0701 * TO BE CHANGED. 

0702 * 

0703 ■''**********»-»*#»*»****»«*****»««***»»***#*«».(nn(»#it# 

0704 * 

0705 0001 BITCNT EQU 1 

0706 0006 lOBUF EQU 6 

0707 0007 WORDFG EQU 7 

0708 0008 XEC EQU 8 

0709 * 

0710 » 

0711 03B0 C300 C MOV START, CRUBAS UPDATE CRU BASE REGISTER 

0712 03B2 04C7 CLR WORDFG RESET WORD FLAG 

0713 03B4 0241 AND I BITCNT, >F ISOLATE BIT rnilNT 
03B6 OOOF 

0714 03B8 1303 JEQ SETFG YES, SET FLAG 

0715 03BA 0281 CI BITCNT, >9 BYTE JUSTIFIED I/O? 
03BC 0009 

0716 03BE lAOl JL CSKIPl YES, SKIP 

0717 0:3C0 0587 SETFG INC WORDFG WORD JUSTIFIED I/n FLAG 

0718 * 

0719 * FORM 'STCR' COMMAND AND READ CRII 

0720 * 

0721 03C2 0A61 CSKIPl SLA BITCNT, 6 JUSTIFY BIT iMTiiNT 

0722 03C4 0208 CLOOP LI XEO3406 
03C6 3406 

0723 03C8 E201 SOC BITCNT, XEC 

0724 03CA 0488 X XEC EXECUTE •■•:^TCR••■ 

0725 * 

0726 * OUTPUT STATE OF CRU 

0727 * 

0728 03CC 2FA0 MESG ©CRLF NEXT LINE 
03CE 0238 ••■ 

0729 03D0 2E8C WHEX CRUBAS PRINT BASE ADDRESS 

0730 03D2 2FA0 MESG ©EQUSGN PRINT •' = ' 
03D4 0256'- 

0731 03D6 C1C7 MOV WORDFG, WORDFG WORD I /o:-' 

0732 03D8 1601 JNE CSKIP2 YES, SKIP 

0733 03DA 0986 SRL IOBUF,S ALIGN BYTE I/O Tfi WORD 

0734 03DC 2ES6 CSKIP2 WHEX lOBUF OUTPUT CRU STATE 

0735 03DE 2FA0 MESG @SPACE2 PRINT ' 
03E0 OlFB- 

0736 » 

0737 * ACCEPT INPUT FOR ALTERATION OF CRU 

0738 » 

0739 03E2 2E44 RHEX VALUE CRU OUTPUT? 

0740 03E4 03F6- DATA CNULL3,ERR2 
03E6 0136'' 

0741 03E8 CI 84 MOV VALUE, lOBUF 
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0742 03EA C1C7 MOV WORDFO, WORDFG WORD I/O? 

0743 03EC 1601 JNE CSKIP3 YES, SKIP 

0744 03EE 0AS6 SLA lOBUF.S BYTE ALIGN FOR OUTPUT 

0745 03F0 0248 CSKIP3 AND I XEOF3FF STCR' TO l.DCR' 
03F2 FaFF 

0746 03F4 04SS X XEC EXECUTE 'l.DCR ' 

0747 03F6 02S5 CNULL3 CI CHAR,>D00 EXIT? 
03FS 0000 

0748 03FA 16E4 JNE CLOOP NO LOOP 

0749 03FC 0459 B *9 YES, TO MONITOR 
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PAL 



0752 
0753 
0754 
0755 
0756 
0757 
0758 
0759 
0760 
0761 
0762 
0763 
0764 
0765 
0766 
0767 
0768 
0769 
0770 
077 1 
0772 
0773 
0774 
0775 
0776 
0777 
0778 
0779 
0730 
0781 
0782 

0783 
0784 
0785 
0786 
0787 
0788 
0789 

0790 
0791 

0792 
0793 

0794 
0795 

0796 
0797 

0798 
0799 
0800 

080 1 
0802 
0803 
0804 



0006 
00CI7 



03FE 
03FE CI CD 
0400 C0C3 
0402 1323 
0404 0240 
0406 OCiOf" 



0408 
040A 
040C 
040E 
04 1 
0412 
04 1 4 
0416 
04 1 8 
041 A 
04 IC 
04 IE 
0420 
0422 
0424 
0426 
0428 
04 2 A 
042C 
042E 
0430 
0432 



C 1 SCI 

OAIO 

A ICO 

2FA0 

0242- 

2E06 

2FA0 

0256- 

2E97 

2FA0 

OlFB 

2E44 

0426- 

1 36 - 

C5C4 

0285 

OL'iOO 

1601 

0459 

0285 

2000 

1305 



DISPLAY THE CONTENTS OF ALL CURRENT USER 
WORKSPACE REGISTERS AND RETURN TO THE 
C:OMr'tAND C.L ANNER . 

2) -W-, REGISTER NUMBER IN HEX, CARRIAGE 
RETURN --- DISPLAY THE CONTENTS OF THE 
DESIGNATED REGISTER. USER MAY ALTER 
THE CONTENTS FOLLOWED BY A TERMINATION 
CHARACTER OR MERELY ENTER A TERMINATION 
CHARACTER. THE TERMINATION CHARACTER 
SIGNIFIES WHAT IS TO BE DONE NEXT: 



* 

* INSPECT /CHANGE USER WORKSPACE REGISTER W COMMAND 

# options: 1) -W- FOLLOWED BY C;ARRIAGE RETURN 

* 
» 

* 

* 
# 

■«- 

* 
■ft 

REGNUM EQU 6 
RPOINT EQU 7 

W EQU * 

MOV WP, RPOINT GET WORKSPACE POINTER 

MOV COUNT, COUNT NULL INPUT? 

JEQ WNULLl YES, TO FORMATTED DUMP 

AND I START, >F 10 >F 



* INSPECT /CHANGE A WORKING REGISTER 



SPACE — 
MINUS - 



DISPLAY THE CONTENTS OF THE NEXT REGISTEF<. 
DISPLAY TI-IE CONTENTS OF THE PREVIOUS REGISTER 



CARRIAGE RETURN 



TO THE COMMAND SCANNER. 



MOV 
SLA 
A 



START, REGNUM SAVE REGISTER NUMBER 

5TART, 1 

START, RPOINT FORM REGISTER ADDRESS 



ICLOOP MESG ©CRLFR 

WHXl REGNUM 
MESG ©EQUSGN 

WHEX *RPOINT 
MESG SSPACE2 

RHEX VALUE 

DATA WNULL2,ERR2 



NEXT LINE 

OUTPUT REGISTER NUMBER 
PRINT - = - 

PRINT REGISTER CON TENTS 
DELIMITER 

NEW CONTENTS? 



MOV VALUE,-»RPOINT UPDATE REGISTER 
WNULL2 CI TCHAR,>D00 RETURN TO COMMAND SCANNER- 



JNE SKIP 

WEXITl B #9 

SKIP CI TCHAR, 

JEQ NREG 



NO, CHECK FOR 
TO SCANNER 
«256 NEXT REGISTERl 



YE:: 



* CHECK FOR REGISTER 



325 
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0S05 
0806 
0807 
0808 
0809 
0810 
0811 
0812 
0813 

0814 
0815 
0816 
0817 
0818 
0819 
0820 
0821 
0822 
0823 

0824 
0825 

0826 
0827 
0828 
0829 

0830 
0831 

0832 
0833 

0834 

0835 



0434 CI 86 
0436 13FA 
0438 0606 
043A 0647 
043C 10E8 



043E 0286 
0440 OOOF 
0442 13F4 
0444 0586 
0446 05C7 
0448 10E2 



044A 
044C 
044E 
0450 
0452 
0454 
0456 
0458 
045A 
045C 
045E 
0460 
0462 
0464 
0466 
0468 
046A 
046C 
046E 
0470 
0472 



04C6 

CI CD 

2FA0 

0242' 

2E06 

2FA0 

0256' 

2E97 

0586 

05C7 

0286 

0008 

13F5 

0286 

0010 

13E1 

2FA0 

OlFB 

2FA0 

0244 ■ 

lOEF 



MOV 
JEQ 
DEC 

DECT 
JMP 

» CHECK FOR 

NREG CI 

JEQ 
INC 
INCT 
JMP 
* 

* FORMATTED 
* 

WNULLl CLR 
MOV 
NLINE MESG 

WLOOP WHXl 
MESG 

WHEX 
INC 
INCT 
CI 

JEQ 
CI 

JEQ 
MESG 

MESG 

JMP 



REGNUM.REGNUM AT REGISTER 0? 



WEXITl 
REGNUM 
RPOINT 
ICLOOP 

REGISTER >F 

REGNUM , >F 

WEXITl 
REGNUM 
RPOINT 
ICLOOP 



YES, TO SCANNER 
UPDATE REGISTER NUMBER 
UPDATE ADDRESS 



REGISTER >F, TO SCANNER 
UPDATE REGISTER NUMBER 
UPDATE ADDRESS 



REGISTER DISPLAY 



REGNUM 
WP, RPOINT 
©CRLFR 

REGNUM 
©EQIJSGN 

*RP01NT 
REGNUM 
RPOINT 
REGNUM, ;>8 

NLINE 
REGNUM, >10 

WEXITl 
@SPACE2 

@RP 

WLOOP 



NEXT LINE 

REGISTER NUMBER 
PRINT •' = ••■ 

PRINT CONTENTS 
TO NEXT REGISTER 
NEXT ADDRESS 
END OF LINE? 



DONE? 

YES, TO SCANNER 
DELIMITER 

PRINT ••■R- 
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08 33 
0339 
0340 
0S41 
0842 
0843 
0844 
0345 
0846 
0847 
0348 
0849 
0850 
085 1 
0352 
0853 



# 

* DISPLAY WP, PC, ST REGISTERS 
* 

« TERMINATION CHARACTERS: 

* SPACE — TO NEXT REGISTER 

* CARRIAGE RETURN — TO MONITOR SCANNER 

* MINUS — INSPECT SAME REGISTER AGAIN 
* 

* ORDER OF DISPLAY: WP, PC, ST. 
* 

0006 MPOINT EQU 6 

0007 LC:OUNT EQU 7 

» 

LI MPOINT, WS 



0854 0474 0206 R 
0476 023C' 

0855 0478 0207 LI 
04 7 A 0003 

0856 047C 0208 LI 
047E FFCA 

0857 0480 2FA0 RLOOPl MESG ©CRLF 
0482 0238 •■■ 



INIT. MESSAGE POINTER 
LC0UNT,3 SET LOOP COUNT 
R8,MREGS+WP+WP 

NEXT LINE 



MESG «MPOINT 
MESG ©EQUSGN 



OUTPUT REGISTER SLOGAN 
PR I NT r = • 



MOV *R8, VALUE 
WHEX »R3 
MESG eSPACE2 

RHEX VALUE 
DATA RNLILL,ERR:; 



PRINT CONTENTS 
DELIMITER 

NEW DATA? 



0858 0484 2F96 

0859 0486 2FA0 
0488 0256' 

0860 048A CI 18 

0361 04SC 2E93 

0362 04SE 2FA0 
0490 OlFB" 

0863 0492 2E44 
0364 0494 0498- 

0496 0136- ' 

0865 0498 C604 RNULL MOV VALUE, *RS 

0866 049A 0285 CI TCHAR, '-- *256 SAME REGISTER 
049C 2D00 

0867 049E 13F0 JEQ RLOOPl 

0363 04A0 0285 CI TCHAR, >D00 
04A2 ODOO 

0869 04A4 1304 JEQ REX IT 

0370 04 A6 05C6 INCT MPOINT 

0871 04A8 05C8 INCT R8 

0372 04AA 0607 DEC LCOUNT 

0873 04AC 16E9 JNE RLOOPl 

0874 04AE 0459 REX IT B »9 



YES, LOOP 
TO SCANNER? 

YES, EXIT 

UPDATE MESSAGE POINTER 

UPDATE ADDRESS 

EXIT ? 

IF >0, NO 

TO SCANNER 
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0S77 
0S7S 
0879 
0880 
0881 
0882 
0883 
0884 
0885 
0886 
0Q87 
0388 
OSS 9 
0890 
0891 
0892 
0893 

0894 04B0 4008 

0895 04B2 404S 
0S96 04B4 4088 
0897 

0898 
0S99 

0900 04B6 8040 

090 1 04BS 1 202 

0902 04BA 0460 
04BC 01 30 

C»903 
0904 
0905 



* DUMP ROUTINE — 'D' COMMAND 
* 

* DUMP RAM IMAGE TO CASSETTE TAPE 

* IN 990 TAG OBJECT FORMAT 
* 

0002 ENTRY EQU 2 

0004 TCOUNT EQU 4 

0005 CKSUM EQU 5 

0006 IDT EQU 6 
OOOC TVALUE EQU 12 
04B0 • D EQU * 

« 

» WORD ALIGN ADDRESSES 



5ZC 

;zc 

i:ZC 



WDBDY,STARTA 
WDBDY,STOPA 
WDBDY, ENTRY 



* START ADDRESS 7 STOP ADDRESS— ERROR 
» 

C STARTA,STOPA 

JLE ADDROK 

B eERR3 ERROR EXIT TO MONITOR 



* READ IDT. BLANK FILL REMAINDER OF BUFFER 
* 

0906 04BE 04C4 ADDROK CLR R4 

0907 04C0 04C3 CLR COUNT 

0908 04C2 2FA0 MESG ©IDTEQ 
04C4 0203- 

0909 04C6 2EC4 RDIDT ECHO R4 READ CHARACTER 

0910 04C8 D8C4 ^ BLANKO MOVB R4, eMREGS+12( COUNT ) 
04CA FFBC 

0911 04CC 0583 

0912 04CE 0283 
04D0 0008 

0913 04D2 1304 

0914 04D4 0284 
04D6 2000 

0915 04D8 16F6 

0916 04DA 10F6 
0917 
09 1 8 
0919 



INC COUNT 

CI COUNT, 8 

JEQ UREADY 

CI R4,>2000 

JNE RDIDT 

..IMP BLANKO 



BUFFER FULL? 

YES, EXIT 
TERMINATOR ? 



« WAIT FOR USER READY 
# 

0920 04DC 2FA0 UREADY MESG ©READY 
04DE 0208' 

READ R4 

CI R4, •■Y'*256 



0921 04E0 2F44 

0922 04E2 02S4 
04E4 5900 

0923 04E6 1641 

0924 04E8 04E0 
04EA FFF6 

0925 
0926 
0927 
0928 04EC 2FA0 



JNE DEXIT 
CLR ©DUMPFG 



* ZERO TAG (IDT TAG) 
MESG ©DC2 



OUTPUT READY MESSAGE 

WAIT FOR INPU1 

YES? ,IF NOT TO MONITOR 



SET DUMP FLAG 



OUTPUT DC2, START CASSSETTE 
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04EE 


0223 •■ 










0929 


04F0 


04CA 






CLR RIO 




0930 


04F2 


04C5 






CLR CKSUM 




0931 


04F4 
04F6 


06A0 
056C-- 






BL eOUTTAG 




0932 


04FS 


3000 






DATA >3000 




0933 


04FA 
04FC: 


2FA0 
FFBC 






MESG @MREGS+12 


OUTPUT IDT 


0934 






» 








0935 






# 


UPDATE CHECKSUM 




0936 






* 








0937 


04FE 
0500 


0203 
0003 






LI COUNT, 8 




0938 


0502 


D123 


LLOGPl 


MOVB ©MREGS+ll (COUNT) ,R4 GET CHARACTER 




0504 


FFBB 










0939 


0506 


0984 






SRL R4,S 




0940 


0508 


A144 






A R4, CKSUM 


ADD IT TO CHECKSUM 


0941 


050A 


0603 






DEC COUNT 


DONE? 


0942 


05 OC 


16FA 






JNE LLOOPl 


NO, ADD NEXT CHARACTER 


0943 






« 








0944 






♦ 


ENTRY ADDRESS TAG 




0945 






* 








0946 


050E 


C282 






MOV ENTRY, RIO 


ENTRY ADDRESS TO BUFFER 


0947 


0510 
0512 


06A0 
0560-- 






BL ©OUTTAG 




0948 


0514 


3100 






DATA >3100 




0949 






« 








0950 






* 


ENTRY ADDRESS TAG (9) 




0951 






* 








0952 


0516 


C:2S0 


NINE 


MOV STARTA,R10 




0953 


0518 
051 A 


06A0 
056C:-' 






BL ©OUTTAG 


MEMORY ADDRESS 


0954 


05 IC 


3900 






DATA >3900 




0955 






* 








0956 






* 


MEMORY CONTENTS TAG <B) • 


0957 






» 








0958 


05 IE 


C290 


BTAG 


MOV »STARTA,R10 




0959 


052O 
0522 


06A0 
056C' 






BL ©OUTTAG 


MEMORY DATA 


0960 


0524 


4200 






DATA >4200 




0961 






« 








0962 






* 


DUMP 


COMPLETED? 




0963 






» 








0964 


0526 


8040 






C STARTA,STOPA 


AT LAST ADDRESS? 


0965 


0528 


1304 






JEQ EOR 


YES, TERMINATE 


0966 


052A 


05C0 






ITMCT STARTA 


NO, UPDATE ADDRESS 


0967 


052C 
052E 


0283 
003C 






CI COUNT, 60 


END OF RECORD? 


0968 


0530 


1AF6 






•JL BTAG 


NO, OUTPUT NEXT WORD 


0969 






* 








0970 






* 


OUTPUT END OF REC:ORU 




0971 






* 








0972 


0532 


0225 


EOR 


A I CKSUM, >37 


UPDATE CHEi::KSUM 




0534 


0037 










0973 


0536 


C2S5 






MOV CKSUM, RIO 




0974 


0538 


050A 






NEG RIO 


INVERT CHECKSUM 


0975 


053A 
053C 


06A0 
056C ■ 






BL ©OUTTAG 


OUTPUT 7 TAG 


0976 


053E 


3700 






DATA >3700 




0977 


0540 


04C5 






CLR CKSUM 


ZERO chei;:ksum 
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0978 


0542 


2FA0 




0544 


0215 ■' 


0979 






0980 


0546 


8040 


0981 


0548 


1304 


0982 


054A 


04C3 


0983 


054C: 


2FA0 




054E 


0224' 


0984 


0550 


10E2 


0985 






0986 






0987 






0988 


0552 


2FA0 




0554 


0213- 


0989 


0556 


0203 




0553 


003C 


0990 


055A 


2FA0 




055C 


022 1' 


0991 


055E 


0603 


0992 


0560 


16FC 


0993 


0562 


0720 




0564 


FFF6 


0994 


0566 


2FA0 




0568 


0238 •■ 


0995 


056A 


1044 


0996 






0997 






0998 






0999 






1000 






1001 






1002 






1003 


056C: 


C13B 


1004 


056E 


2F04 


1005 


0570 


0984 


1006 


0572 


A144 


1007 


0574 


2E8A 


1008 


0576 


0223 




0578 


0005 


1009 






1010 






1011 






1012 






1013 


057A 


0204 




057C 


0004 


1014 


057E 


0B4A 


1015 


0580 


C30A 


1016 


0582 


09CC 


1017 


0584 


A14C 


1018 


0586 


0225 




0588 


0030 


1019 


058A 


028C 




05SC 


OOOA 


1020 


058E 


1A02 


1021 


0590 


0225 




0592 


0007 


1022 


0594 


0604 


1023 


0596 


16F3 


1024 


0598 


045B 



MESG ©FCR OUTPUT f' TAG AND 

CARRIAGE RETURN 

c startatSTOpa done with dump 



JEQ riDUMP 
CLR COUNT 
MESG @NR 

JMP NINE 

* 

« END DUMP ROUTINE 

* 

DDUMP MESG ©EOF 

LI COUNT. 60 

RL00P2 MESG ©RUBOUT 

DEC COUNT 
JNE RL00P2 
SETO ©DUMPFG 

MESG eCRLF 



YES, EXIT 

NO.'OUTPUT NEXT 

PRINT LEADING LF AND DEL 

RECORD 



OUTPUT FINAL RECORD 



RSET DUMP FLAG 

GET OVER TO LEFT HAND SIDE 

TO MONITOR 



DEXIT JMP LOUT 

» OUTPUT TAG ROUTINE 

# 

» TAG CHARACTER IN THE LEFT BYTE OF THE 

» WORD AFTER THE CALL. THE FIELD VALUE 1:1 

« IN 'VALUE' 



OUTTAG MOV *11+,R4 
WRIT R4 
SRL R4,S 
A R4,CKSUM 
WHEX RIO 
A I COUNT, 5 



GET TAG 
OUTPUT IT 

I.,IPDATE CHECKSUM 

OUTPUT FIELD 

UPDATE CHARACTER COUNT 



* UPDATE THE CHECKSUM WITH THE 'HEX /ASCI I 
» EiaUIVALENT OF THE CONTENTS OF 'VALUE' 
« 

LI TC0UNT,4 SET LOOP COUNT 



ULOOPl SRC .RIO, 4 

MOV R10,TVALI.IE 
SRL TVALUE , 1 2 



ISOLATE A DIGIT 



A 
AI 

CI 

JL 
AI 



TVALUE, CKSUM ADD ASCII VALUE 
CKSUM,>30 10 CHECKSUM 

TVALUE, 10 

USKIP 
CKSUM, 7 



USKIP DEC TCOUNT 
JNE ULOOP 1 
B *11 



ANOTHER DIGIT? 
YES, JUMP BACK 
NO, RETURN 
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1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 

1043 059A 
059C. 
1049 059E 
1050 
1051 
1052 

1053 05A0 

1054 05A2 

1055 05A4 
05A6 

1056 05A8 

1057 05AA 
05AC: 

1058 05AE 

1059 05B0 
05B2 

1060 05B4 

1061 05B6 
05 B8 

1062 05BA 

1063 05BC 
05BE 

1064 
1065 
1066 

1067 05C0 
05C2 

1068 05C:4 

1069 05C6 
05C8 

1070 05CA 

1071 05CC 



0000 
0001 
0008 
0009 
059A' 



0206 
1100 
2F06 



04C7 

04C8 

06A0 

066E' 

lOOB 

D22A 

0654' 

132D 

06A0 

0668' 

lOOE 

0205 

0008 

0878 

0468 

05BC ' 



107; 



oacE 

05D0 



1073 05D2 
05D4 

1074 05D6 

1075 05D8 
1076 



0286 
0047 
1106 
0286 
004A 
1516 
0226 
FFC9 
lOEC 
0286 
003A 
1610 
04CA 



* 

« 990 TAG FORMAT J;_OADER ~ 'L' COMMAND 
* 

* ACCEPTS LOAD BIAS FROM USER. IF INPUT IS NULL, 

* A BIAS OF >B0 IS THE DEFAULT. 
# 

* UPON A GOOD LOAD, THE 'IDT' IS OUTPUT. 

* IF AN ERROR IS DETECTED, AN ERROR MESSAGE IS 

« OUTPUT. IN EITHER CASE, CONTROL RETURNS TO THE 

* MONITOR. 
» 

BIAS EQU O 

IDTR EQU 1 

JMPTAG EQU 8 

LOADDR EQU 9 

L EQU * 
* 

* PLAYBACK ON 
* 

LI R6,>1100 



WRIT R6 

* GPT A TAG 

CLRSUM CLR R7 
TAG CLR JMPTAG 
BL eOETl 

JMP CHKl 



OUTPUT DCl 



GET TAG 



ERROR EXIT 



TAG2 MOVB @0P < RIO ), JMPTAG GET TAG OFFSET 



JEQ ENDACT 

BL @GET4 

JMP CHK2 

LI R5,8 



F TAG ENCOUNTERED 
GET DATA VALUE 



SET FOR SKIP 8 



JMP 



SRA JMPTAG, 7 RIGHT JUSTIFY OFFSET 
B €JMP( JMPTAG) GO TO TAG ROUTINE 



* CHECK FOR G,H,I,J TAGS 

CHKl CI R6, 'G' 

JLT CHK2 
CI R6, 'J' 



CHK2 



JGT ERRORO 

A I R6,->37 

JMP TAG2 

CI R6,>3A 



JNE ERRORO 
GOODLD CLR RIO 



ADJUST VALUE 

COLON ?, NO MORE DATA 
RESET MASK FOR GOOD LOAD 
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1077 






1078 






1079 


05DA 


0705 


1080 


05DC 


020C 




05DE 


0080 


1081 


05E0 


IFOF 


1082 


05E2 


16FB 


1083 


05E4 


0605 


1084 


05E6 


16FC 


1085 


05E8 


C28A 


1086 


05EA 


1609 


1087 


05EC 


2FA0 




05EE 


0238-' 


1088 


05F0 


2FA0 




05F2 


FFB2 


1089 


05F4 


0460 




05F6 


0080 -■ 


1090 


05F8 


04C0 


1091 


05FA 


070A 


1092 


05FC. 


lOEE 


1093 


05FE 


COOO 


1094 


0600 


1302 


1095 


0602 


0460 




0604 


0130- 


1096 


0606 


0460 




0608 


0120" 


1097 






1098 






1099 






1100 


060A 


2F46 


1101 


060C. 


0986 


1102 


060E 


0286 




0610 


OOOD 


1103 


0612 


16FB 


1104 


0614 


10C5 


1105 






1106 






1107 






1108 


0616 


A230 


1109 


0618 


C24A 


1110 


061A 


10C3 


nil 






1112 






1113 




, 


1114 


061C 


A280 


1115 


06 IE 


CE4A 


1116 


0620 


logo 


1117 






1118 






1119 






1120 


0622 


AICA 


1121 


0624 


13BE 


1122 


0626 


0200 




0628 


0001 


1123 


062A 


10E7 


1124 






1125 






1126 






1127 


062C 


020A 




062E 


FFB2 



* CHARACTER TIME-OUT - WAIT FOR END OF INPUT 

* 

HANOI SETO R5 

LI CRUBAS,>80 



HANG2 TB 15 

JNE HANOI 

DEC R5 

JNE HANG2 

MOV RIO, RIO 

JNE LDERR 

MESO eCRLF 



SET CRU BASE REG. FOR 9902 

SPACE? 

YES, RESET COUNT AND CONTINUE 

NO, DECREMENT COUNT 

CHECK AGAIN 

GOOD LOAD? 

NO, OUTPUT ERROR MESSAGE 

NEXT LINE 



MESG ©MREGS+IDTR+IDTR OUTPUT IDT 



LOUT B 



©MONTOP 



ERRORO CLR O 
ERROR 1 SETO RIO 

JMP HANOI 
LDERR MOV 0,0 
JEQ ERO 
B SERRl 



EXIT 

TAG ERROR 
ERROR FLAG 



ERO 



B 



©ERRO 



» F-TAG : SKIP TO END OF RECORD 

*#»♦»»«*««*»»»»*»*»**»**♦»*»♦****»*»************************ 
ENDACT READ R6 

SRL R6,8 

CI R6,>0D 

JNE ENDACT 

JMP CLRSUM 
»**♦««♦»♦»*»**«*»*»*»»*««**«***«***♦»«******»*************** 
« LOAD ADDRESS TAGS 9 AND A 

RELOAD A BIAS. RIO ADJUST FOR RELOCATABILITY 
ABLOAD MOV R10,L0ADDR SAVE LOAD ADDRESS 
JMP TAG 

i^ DATA TAGS B AND C 

REDATA A BIAS, RIO ADJUST RELOCATABLE DATA 
ABDATA MOV R10,*L0ADDR+ 

JMP TAG 
**»♦****«**♦«**»**»*•***»«*****»*»*»************************ 
« CHECKSUM TAG 7 

CHECK A R10,R7 
JEQ TAG 
LI O, 1 CHECKSUM ERROR 

JMP ERROR 1 
« IDT TAG 
LENG LI R10,MREGS+IDTR+IDTR ADDRESS OF IDT BUFFER 
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1128 


0630 


1003 


1129 






1130 






1131 






1132 


0632 


0645 


1133 


0634 


020A 




0636 


FFD2 


1134 


0638 


2F46 


1135 


063A 


DE86 


1136 


063C 


0986 


1137 


063E 


A1C6 


1138 


0640 


0605 


1139 


0642 


16FA 


1140 


0644 


lOAE 


1141 






1142 






1143 






1144 


0646 


A280 


1145 


0648 


C38A 


1146 


064A 


lOAB 


1147 






1148 






1149 






1150 


064C 


024A 




064E 


FFFE 


1151 


0650 


COOA 


1152 


0652 


10A7 


1153 






1154 






1155 






1156 


0654 


38 


1157 


0655 


46 


1158 


0656 


45 


1159 


0657 


3B 


1160 


0658 


3B 


1161 


0659 


3B 


1162 


065A 


3B 


1163 


065B 


33 


1164 


065C 


F2 


1165 


065D 


2E 


1166 


065E 


20 


1167 


065F 


31 


1168 


0660 


30 


1169 


0661 


48 


1170 


0662 


IE 


1171 


0663 


00 


1172 


0664 


3B 


1173 


0665 


3B 


1174 


0666 


3C 


1175 


0667 


F3 



JMP SKIPS 

» CHECKSUM FIELD 2 OF TAGS 0,3,4,5,6 

SKIP6 DECT R5 ADJUST COUNT TO 6 

OLD IDT LI R10,DUMYBF SET POINTER 



CHARACTER TO BUFF'ER 
UPDATE CHECKSUM 



SKIPS READ R6 

MOVB R6,*R10+ 
SRL R6,8 
A R6,R7 
DEC R5 
JNE SKIPS 
JMP TAG 

* TAGS 1 AND 2 

RLENT A BIAS, RIO 

ABENT MOV RIO, 14 ENTRY POINT TO PC 
JMP TAG 

» SET LOAD BIAS - TAG D 

SB I AS AND I R10,>FFFE WORD ALIGN 

MOV RIO, BIAS 
JMP TAG 

* LOAD JUMP TABLE 
OP 



BYTE 


LENG-JMP/2 





PROGRAM START 


BYTE 


ABENT-JMP/2 


1 


ABS ENTRY ADDRESS 


BYTE 


RLENT-JMP/2 


2 


REL ENTRY ADDRESS 


BYTE 


SKIP6-JMP/2 


3 


EXT REFERENCE 


BYTE 


SKIP6-JMP/2 


4 


EXT REFERENCE 


BYTE 


SKIP6-JMP/2 


5 


EXT DEFINE 


BYTE 


SKIP6-JMP/2 


6 


EXT DEFINE 


BYTE 


CHECK-JMP/2 


7 


CHECKSUM 


BYTE 


CLRSUM-JMP/2 


3 


IGNORE CHECKSUM 


BYTE 


ABLOAD-JMP/2 


9 


ABS LOAD ADDRESS 


BYTE 


RELOAD-JMP/2 


A 


REL LOAD ADDRESS 


BYTE 


ABDATA-JMP/2 


B 


ABS DATA 


BYTE 


REDATA-JMP/2 


C 


REL DATA 


BYTE 


SBIAS-JMP/2 


D 


LOAD BIAS 


BYTE 


ERRORO-JMP/2 


E 


ILLEGAL 


BYTE 





F 


END OF RECORD 


BYTE 


SKIP6-JMP/2 


G 


REL SYMBOL 


BYTE 


SKIP6-JMP/2 


H 


ABS SYMBOL 


BYTE 


OLDIDT-JMP/2 


I 


OLD IDT 



BYTE TAG-JMP/2 



'>'?'> 
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1177 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 

1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 

1203 
1204 

1205 
1206 
1207 
1208 
1209 
1210 

1211 
1212 
1213 
1214 
1215 
1216 

1217 
1218 

1219 
1220 

1221 
1222 

1223 
1224 

1225 

1226 



0668 
066A 
066C 



066E 
0670 
0672 
0674 
0676 
0678 
067A 
067C 
067E 
0680 



0682 
0684 
0686 
0638 



0205 
FFFC 
1001 



0705 
04CA 
2F46 
0286 
2000 
IIFC 
0286 
5F00 
15F9 
0986 



0288 
3300 
1301 
A1C6 



068A 
068C 
068E 
0690 
0692 
0694 
0696 
0698 
069A 
069C 
069E 
06A0 
06A2 
06A4 
06A6 
06A8 



0286 
0030 
1112 
0286 
0039 
1208 
0286 
0041 
HOC 
0286 
0046 
1509 
0226 
0009 
0246 
OOOF 



» 

* GET 4 HEX DIGITS AND CONVERT THEM TO BINARY. 

* THE VALUE IS ASSEMBLED IN 'VALUE''. NON-HEX 
« INPUT RESULTS IN AN ERROR RETURN WITH THE 

» CHARACTER IN THE RIGHT BYTE OF 'CHAR^. GETl 

* IS THE ALTERNATE ENTRY POINT FOR GETTING 1 

* HEX CHARACTER. 
* 

» CALL=BL eGET41 

* JMP ERROR ERROR RETURN 

* NORMAL RETURN 
« 

» 4 HEX DIGIT ENTRY POINT 

» 

GET4 LI R5,-4 SET COUNT FOR 4 DIGITS 

JMP GET 
« 

« GET TAG CHARACTER ENTRY POINT 
» 

GETl SETO R5 SET COUNT FOR 1 CHARACTER 

GET CLR RIO CHECK FOR VALID ASCII INPUT 

GET41 READ R6 

CI R6,' '*256 MIN ASCII 



MAX ASCII 



JLT GET41 

CI R6,>5F00 

JGT GET41 

SRL R6,8 



« CHECKSUM TAG? ( 7 ) 
» 

CI JMPTAG. CHECK- JMP/2»256 



JEQ SKI PCS 
A R6,R7 



UPDATE CHECKSUM 



» CHECK FOR VALID HEX INPUT AND ISOLATE HEX DIGIT 

* 



SKIPCS CI 



R6.''0' 



GOTl 



JLT GETERR 

CI R6,'9-' 

JLE GOTl 

CI R6,-'A'' 

JLT GETERR 

CI R6,'F' 

JGT GETERR 

AI R6.9 

AND I R6,>F 



MIN NUMERIC . 

MAX NUMERIC 

-MIN ALPHA 

MAX ALPHA 

ALPHA ADJUST 
isolate' BINARY 
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t** 990 TAG FORMAT 


LOADER ##* 


1 227 


* 


ASSEMBLE THE VALUE 


1228 


» 




1229 06AA 0A4A 




SLA RIO, 4 


1230 06AC A286 




A R&,R10 


1231 06AE 0585 




INC RS" 


1232 06B0 16E0 




JNE GET41 


1233 06B2 05CB 




INCT 11 


1234 06B4 045B 


GETERR B #11 
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IN BINARY 
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ADD NEW DIGIT 

DONE? 

GET ANOTHER CHARACTER 

BUMP PAST ERROR RETURN 

EXIT, TAG OR INVALID INPUT IBIfl-ll 
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1237 
1238 
1239 
1240 
1241 
1242 
1243 
1 244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 

1 252 * 

1253 06B6 400S F SZC 

1254 06B8 0203 NULL3 LI 
06BA 8402 

1255 06BC 0204 L.I 
06BE 05C0 

1256 06C0 0285 CI 
06C2 ODOO 

1257 06C4 1307 
1258 
1 259 
1260 

1261 06C6 0223 
06CS 1 000 

1262 06CA 0224 A I 
06CC FFCO 

1263 06CE 0A82 

1264 06D0 1001 
1265 
1 266 
1267 

1268 06D2 

1269 06D2 0484 

1270 06D4 

1271 06D4 0483 

1272 06D6 1603 

1273 06DS 2FA0 
06DA 0238' 

1274 06DC 2E80 

1275 06DE SKIP2 

1276 06DE 8040 

1277 06E0 16F8 



* 

» FINIJ COMMAND — 'F'' 

» 

» LOOK FROM START ADDRESS TO STOP ADDRESS FOR 

* THE SPECIFIED DATA PATTERN. THE TERM. 
« CHARACTER FOLLOWING THE DATA PATTERN DETERMINES 

* THE mode: 
» CARRIAGE RETURN - WORD MODE 

* MINUS - BYTE MODE. 

* IN THE BYTE MODE, THE RIGHT BYTE OF THE DATA 

* PATTERN IS SEARCHED FOR. 
♦ 



WDBnY,STARTA WORD ALIGN 
R3,>S402 SET UP CMD=i; 



R4,>5C0 
TCHAR , >D00 



JEQ SKIPS 



KEY,*START 
SET UP -INCT'- CMD 
WORD MODE ? 
IF YES, JUMP 



* ADJUST FOR COMPARE BYTE COMMAND 
A I R3 , > 1 000 



R4,->40 



SLA KEY.S 
JMP SKIPS 



CHANGE TO COMPARE BYTE 
CHANGE TO ■INC 
BYTE ALIGN DATA 



# CHEC 


:;K FOR 


DATA MATCH 


* 






SKI PI 








X 


R4 


SKIPS 








X 


R3 




JNE 


SKIP2 




MESG 


eCRLF 



WHEX STARTA 



EXECUTE INCREMENT COMMAND 

EXECUTE COMPARE COMMAND 
IF NO MATCH, JUMP 
NEXT LINE 

OUTPUT MATCH ADDRESS 



C STARTA, STOPA DONE? 

JNE SKIPl NO, CHECK NEXT ADDRESS 



1278 06E2 0459 FEXIT B 



TO MONITOR 
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1281 
12S2 
1 2!-! 3 

1284 
1285 
1286 
1287 
128S 
1289 
1290 
1291 
1292 



* HEX ARITHMETIC COMMAND — ■ H' 
♦ 

* OUTPUT SUM AND DIFFERENCE OF TWO HEX NUMBERS. 

0000 HO EQI.J 



0001 HT 
* 



EQU 



* H1+H2 



1293 06E4 2FA0 H 
06E6 0246 ■•■ 

1294 06E8 CI 00 

1295 06EA AlOl 

1296 06EC 2E84 

1297 » 

1298 * Hl-H:; 

1299 * 

1300 06EE 2FA0 
06F0 024F' 

1301 06F2 6001 

1302 06F4 2E80 

1303 06F6 0459 



MESO ©HP 

MOV HO, VALUE 
A HT, VALUE 
WHEX VALUE 



MESO ©HM 

5 HT,HO 
WHEX HO 

6 *9 



PRINT •■H1+H2 



GET SUM 
OUTPUT H1+H2 



PRINT •Hl-H2= 

GET DIFFERENCE 
OUTPUT H1-H2 
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1306 ^(.^n(.#^|.^(.^(.^nt**##^^#^f-«^^■)n^*###»#^^»^n(■^^**#**»*»»#»»»♦^^«■H■tt 

1307 * 

1308 ♦ T COMMAND 

1 309 * 

ir-!l0 * IF THE TERMINAL BEING USED IS A TEXAS 

1311 « INSTRUMENTS 733ASR OPERATING AT 1200 BAUD, THE 

1312 » EFFECTIVE BAUD RATE MUST BE REDUCED TO 300 BAUD 

1313 * FOR CORRECT PRINTER OPERATION. AT SYSTEM 

1314 * INITIALIZATION, IF THE TERMINAL IS OPERATING 

1315 * AT 1200 BAUD, TIBUG ASSUMES THAT THE 

131 & ♦ TERMINAL IS A 733ASR. ENTRY OF THE T COMMAND 

1317 * TOGGLES THE ■ASR- FLAG FOR TRUE 1200 BAUD 

1318 * OPERATION. 

1319 * 

1320 **♦»«»*«*«#♦*♦****»**«»*»♦»»******»*■»»*«*»*****» 

1321 * 

1322 « 

1323 06F8 0560 T INV ©ASR INVERT DATA 
06FA FFF4 

1324 06FC 0459 TEX IT B «9 EXIT 
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1327 
1328 
1329 
1330 
1331 
1 332 
1333 
1 334 
1335 
1 336 
1 337 

1 338 

1 339 
1340 
1341 
1342 
1 343 
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344 

345 
346 



1347 
1348 
1349 
1 350 
1351 



13? 



353 
354 
355 
356 



06FE 
06FE 
0700 
0702 
0704 
0706 
0708 
070A 
070C 
070E 
0710 
0712 
0714 
0716 
0713 
071 A 
07 IC 
07 IE 
0720 
0722 



CO 1 D 
1604 
0200 
OFOO 
0600 
16FE 
0200 
0004 
C25B 
C049 
09C1 
0A81 
0221 
3000 
2F01 
0A49 
0600 
1 6F7 
0380 



* MICRO TERMINAL OUTPUT ROUTINE XOP 
» 

» call: OTPT RX WHERE X IS NOT EQUAL TO O 

* RO IS USED (0 PASS THE DELAY FLAG 
# 

* THIS ROUTINE IS CALLED WHEN OUTPUT TO THE MICRO TERMINAL 
» IS REQUIRED. THE DATA IS CONTAINED AT THE ADDRRE3S 

« SPECIFIED BY WPll. THE DATA IS OUTPUT IN 4 MICRO 

» TERMINAL WORDS. THE WRITE XOP IS UTILIZED FOR OUTPUT 

* ONCE THE DATA IS FORMATTED. RETURN IS NORMAL. 
» 

OTPTEN 

DO WE USE DELAY ? 

IF NO, JUMP OVER DELAY 

REG 1 = TIMER TICK 



MOV *R13,R0 
JNE BDLY 
LI RO,>FOO 



DLY DEC RO 

.JNE DLY 

BDLY LI R0,4 

MOV »11,R9 

CNOT MOV R9,R1 

SRL Rl,12 

SLA R1,S 

A I Rl,>3000 

WRIT 1 

SLA R9,4 

DEC RO 

JNE CNOT 
RTWP 



DEC TICK COUNT 

IF NOT TIMED OUT GO BACK 



SAVE MSB 

TURN INTO ASCII 

OUTPUT I MICRO TERMINAL WORD 

DEC NIBBLE COUNTER 

IF NOT DONE, JUMP BACK 

EXIT 
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1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
136S 
1369 
1370 
1371 
1372 



0724 

0724 0201 
0726 0004 
1373 0728 04DB 
072A C15B 



374 

375 

376 

77 



1378 
1379 
1 380 
1381 
1382 
1 383 
1384 



072C 
072E 
0730 
0732 
0734 
0736 
0738 
073A 
073C 



0A45 
C6C5 
2F43 
0A43 
09C3 
E6C3 
0601 
16F7 
0380 



* MICRO TERMINAL INPUT XOP 1 
«• 

* CALL: INPT RX 
* 

« THIS ROUTINE IS UTILIZED WHEN THE MICRO TERMINAL REQUIRES 

* INPUT. DATA WILL BE PLACED AT THE ADDRESS SPECIFIED BY WPl 
■» THE DATA IS INPUT IN 4 MICRO TERMINAL WORDS. THE READ XOP 

* IS UTILIZED FOR INPUT AFTER THE DATA IS FORMATTED. RETURN 
« IS NORMAL. 

» 

INPTEN 

REG 4 = # OF TRANSFERS 



LI 



Rl,4 



CNIN 



CLR *11 
MOV *11,5 

SLA R5,4 
MOV R5,*ll 
READ 3 
SLA R3,4 
SRL R3,12 
SOC R3,«ll 
DEC Rl 
JNE CNIN 
RTWP 



START WITH ALL O/'S 

PUT DATA (NIBBLE, 4 BITS) IN 

REG 5 

MOVE DATA TO LEFT 

PUT DATA BACK IN MEMORY 

GET NEXT 4 BITS 

STRIP OFF OS & RIGHT JUSTIFY 

TURN ON I'S IN DATA WORD 
DECREMENT NIBBLE CTR 
IF NOT DONE, JUMP BACK 
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1387 
1388 
1389 
1390 
1391 
1392 
1 393 
1394 
1 395 
1396 
1397 
1 398 
1399 
1400 
1401 
1402 
1 403 
1404 
1405 
1406 
1407 
1408 
1 409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 

1417 

1418 

1419 
1420 

1421 
1422 

1423 

1424 
1425 

1426 
1 427 
1428 
1429 
1430 
1431 
1432 
1433 
1434 
1435 
1436 
1 437 
1438 
1439 



*»**»»*»»■«■«■»*»*****«*»****»***#**»***#* ********#***■«■**#**#** 



073E 
073E 
0740 
0742 
0744 
0746 
0748 
074A 
074C 
074E 
0750 
0752 
0754 
0756 
0758 
075A 
075C 
075E 
0760 
0762 
0764 
0766 
0766 
0768 
076A 
076C 
076E 
0770 
0772 
0774 
0776 
0778 
077A 
077C 



2F42 

04C0 

04EO 

FFFS 

0720 

FFFA 

0282 

4100 

1602 

0460 

0092 •' 

06C2 

0242 

00 IE 

0282 

00 IS 

15EF 

0222 

0766' 

0452 

1018 
lOOB 
lOOC 
lOOD 
lOOE 
lOOF 
1010 
1024 
102F 
1014 
1010 
0380 



1 COMMAND 

THIS ROUTINE IS ENTERED IF THE TEXAS INSTRUMENTS MICRO 
TERMINAL IS CONNECTED TO THE M99/100 MX. WHEN THE RESET 
PUSHBUTTON IS DEPRESSED THE MICRO TERMINAL WILL SEND OUT 
AN ASCII -A- AT 110 BAUD. TIBUG DETERMINES THE BAUD RATE. 
APPROXIMATERLY 1 MS LATER THE MICRO TERMINAL SENDS OUT 
THE ASCII CHARACTER '1' WHICH CAUSES THE COMMAND 
PREPROCESSOR TO BRANCH TO THIS ROUTINE. SINCE THE MICRO 
TERMINAL, FOR A HALT CONDITION, FIRES A LOAD SIGNAL, 
THE HALT POINT IN THIS ROUTINE MUST BE ENTERED FROM THE 
TIBUG LOAD ROUTINE WHEN THE MICRO TERMINAL STEP FLAG 
IS NOT SET AND THE MICRO TERMINAL PRESENCE FLAG IS SET. 
SINCE THE SINGLE INSTRUCTION EXECUTION FUNCTION ALSO 
CAUSES THE LOAD SIGNAL TO BE FIRED FROM THIS ROUl INE 
THE START OS THIS ROUIINE MUST BE ENTERED FROM THE 
TIBUG LOAD ROUTINE IF THE MICRO TERMINAL STEP FLAG IS 
SET. ALL COMMANDS FROM THE MICRO TERMINAL ARE TREATED 
AS ADDRESS BIASES THAT STEER EXECUTION TO THE PROPER 
OPERATION. ALL SPECIFIED OPERATIONS ARE PERFORMED IN 
THIS ROUTINE EXCEPT READING COMMANDS AND INPUTTING AND 
OUTPUTTING OF MICRO TERMINAL DATA WHICH IS PERFORMED 
BY XOFS 1 AND RESPECTIVELY. 



NA 



SETO 


eHALTFG 


CI 


R2,>4100 


JNE 
B 


NA 
STICKO 


SWPB 
AND I 


R2 
R2,>1E 


CI 


R2,>1S 


...IGT 
AI 


MTIN 
R2, JMTB 



»r; 



RIGHT JUSTIFY CMD CODE 
STRIP OUT BITS 

TOO LARGE ? 

IF YES, WAIT FOR NEXT KEYSTROKE 
ADD JLIMP TABLE BIAS 

GO TO EXECUTE CODE 



JMTB 



JMP 


EMA 


JMP 


EPC 


JMP 


EST 


JMP 


EWP 


JMP 


DPC 


..IMP 


DST 


JMP 


DWP 


JMP 


DCRU 


JMP 


ECRU 


JMP 


EMDI 


JMP 


EMD 


RTWP 
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1440 


077E 


1019 




..IMP 


STEP 


1441 


0780 




EPC 






1442 


0780 


2C4E 




INPT 


14 


1443 


0782 


lODD 




JMP 


MTIN 


1444 


0784 




EST 






1445 


0784 


2C4F 




INPT 


15 


1446 


07S6 


lODB 




JMP 


MTIN 


1447 


0788 




EWP 






1448 


0788 


2C4D 




INPT 


13 


1449 


078A 


10D9 




JMP 


MTIN 


1450 


078C 




DPC 






1451 


078C 


2C0E 




OTPT 


14 


1452 


078E 


10D7 




JMP 


MTIN 


1453 


0790 




DST 






1454 


0790 


2C0F 




OTPT 


15 


1455 


0792 


10D5 




JMP 


MTIN 


1456 


0794 




DWP 






1457 


0794 


2C0D 




OTPT 


13 


1458 


0796 


1 0D3 




JMP 


MTIN 


1459 


0798 




EMA 






1 460 


0798 


2C48 




INPT 


8 


1461 


079A 


1005 




JMP 


EMDIl 


1462 


079C 




EMD 






1463 


079C 


2C49 




INPT 


9 


1464 


079E 


C609 




MOV 


9,»S 


1 465 


07A0 


1002 




JMP 


EMDIl 


1 466 


07A2 




EMDI 






1467 


07A2 


2C49 




INPT 


9 


1468 


07A4 


CE09 




MOV 


9,*8+ 


1469 


07A6 


C258 


EMD 11 


MOV 


*8,9 


1 470 


07AS 


lOlE 




..IMP 


HALTl 


1471 


07AA 




STEPRT 






1472 


07AA 


2C0E 




OTPT 


14 


1473 


07AC 


C25E 




MOV 


*14,9 


1474 


07AE 


0700 




SETO 


RO 


1475 


07B0 


lOlA 




JMP 


HALT 1 


1476 


07B2 




STEP 






1477 


07B2 
07B4 


0720 
FFFS 




SETO 


©STtlPFG 


1478 


07B6 
07B8 


04E0 
FFFA 




i::LR 


©HALTFG 


1 479 


07BA 


03E0 




IREX 




1480 


07Bi:: 


0380 




RTWP 




1481 


07BE 




DCRU 






1482 


07BE 


2C4A 




INPT 


10 


1 483 


07C0 


04C9 




CLR 


R9 


1484 


07C2 


C30A 




MOV 


R10,R12 


1485 


07C4 
07C6 


024C 
OFFF 




AND I 


R12,>FFF 


1 486 


07C8 


OAIC 




SLA 


R12, 1 


1 487 


07CA 


09CA 




SRL 


RIO, 12 


1488 


07CC 


0A6A 




SLA 


RIO, 6 


1 489 


07i;:E 
07ri0 


022A 
3409 




AI 


R10,>3409 


1490 


07i:i2 


048A 




X 


RIO 


1491 


07D4 


1008 




JMP 


HALTl 


1492 


071.16 




ECRU 






1 493 


0706 


2C49 




INPT 


■:/ 


1494 


07DS 
07DA 


022A 
FCOO 




AI 


RIO, -;>400 



STORE PC 

AWAIT NEXT COMMAND 

STORE ST 

AWAIT NEXT COMMAND 

STORE WP 

AWAIT NEXT COMMAND 

OUTPUT PC 



OUTPUT STATUS 
AWAIT NEXT COMMAND 

OUTPUT WP 

AWAIT NEXT COMMAND 

STORE MA 



GET DATA 



GET DATA 

GET CONTENTS OF LOCATION 

GET DATA 

GO OUTPUT DATA 

OUTPUT PC 

TURN ON SHORT FLAG 
GO OUTPUT GATA 

SET THE STEP FLAG 

CLEAR HALT FLAG 



GET CONTROL WORD 
CLEAR COMMAND WORD 
REG 12 = CMD WORD 
STRIP OFF CRU ADDR BITS 

CRU BASE ADDR IS NOW SET UP 
STRIP OUT OS 
SET UP BIT COUNT 
CONSTRUCT 3TCR i::OMMAND 

EXECUTE STCR R9, X 
GO OUTPUT i::r<U DATA 

GET CRU DATA 
RIO = LDCR R9, X 
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srv- 



1495 07DC 048A X RIO 

1496 07DE lOAF JMP MTIN 

1497 07E0 HALT 

1498 07E0 0700 SETn RO 

1499 07E2 2C0E OTPT 14 

1500 07E4 C25E MOV *14,? 

1501 07E6 2C09 HALTl OTPT 9 
-^1502 07E8 lOAA JMP MTIN 

1503 END 

NO ERRORS 



EXECUTE LDCR R9, X 
AWAIT NEXT COMMAND 

SET SHORT OUT FLAG 

OUTPUT PC 

GET MEMORY DATA 

OUTPUT DATA 

AWAIT NEXT COMMAND 
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